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PREFACE 





This manual contains the source listing for version 1.1 of both the keypad and serial 
monitor programs. Two listings are provided for each monitor program; a PL/M-86 
source listing and an expanded source listing containing the assembly language 
equivalent of each PL/M instruction. 
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1515-11 PL/M-86 V1.0 COMPILATION OF MODULE MONITOR 
OBJECT MODULE PLACED IN :F1:KEYPAD.OBJ 
COMPILER INVOKED BY: :F2:PLM86 :F1:KEYPAD.PLM LARGE OPTIMIZE(2) 


$TITLEC'SDK86 KEYPAD MONITOR') 
$NOINTVECTOR 
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SDK-86 KEYPAD MONITOR, V1.1 
30 JUNE 1978 


(C) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. NO PART OF 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, SANTA 
CLARA, CALIFORNIA, 95051. 


* se fe e e e e e e e e e e de * * e e He e He * e e e e * * * * e de de de e * * e e e * * * * de ehe * * * * * * * e de * * de de e dede x 
* e e e e * * fe * e e e e * e * * * * e e * * de * * * ἐς * * * * de He e e e * e efe k K k de ede dee fe de e k k k deje dede k kk k k e 


ABSTRACT 


THIS PROGRAM IS THE ROM BASED KEYPAD MONITOR FOR THE SDK-86. 
IT PROVIDES THE USER WITH A MODERATE LEVEL OF CAPABLILITY TO 
EXAMINIE/MODIFY MEMORY AND REGISTERS AND CONTROL PROGRAM EXECUTION. 


ENVIRONMENT 


THE SDK KEYPAD MONITOR COMMUNICATES WITH THE USER VIA THE ONBOARD 
KEYBOARD AND 7 SEGMENT DISPLAY. 


PROGRAM ORGANIZATION 


THE PROGRAM IS DIVIDED INTO 1 DATA AND 2 CODE MODULES: 


1. DATA DECLARATION MODULE. GLOBAL DATA DECLARATIONS. 
2. COMMON ROUTINES. LOWER LEVEL PROCEDURES 
3. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 


CALLING GRAPH 


»»COMMAND DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
COMMON ROUTINES 


GLOBAL DATA STRUCTURES 


THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) IN A 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 

AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 

POINTERS TO THE SDK-86 2**20 ADDRESS SPACE ARE IMPLEMENTED WITH 
POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 
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MONI TOR:DO; /* BEGINNING OF MODULE */ 
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GLOBAL DATA DECLARATIONS MODULE 


THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 
LITERALS (EQUATES). 


MODULE ORGAINIZATION 


THE MODULE IS DIVIDED INTO 5 SECTIONS: 


1. UTILITY SECTION GLOBAL FLAGS, VARIBLES, EQUATES 

2. 1/0 SECTION 1/0 PORTS,MASKS,AND SPECIAL CHARS 
3. MEMORY ARGUMENTS SECTIONS STRUCTURES FOR MEDIUM POINTERS 

4. REGISTER SECTION USER REGISTER SAVE AREA 

5. BOOT AND 8089 SECTION BOOTSTRAP AND 8089 DESCRIPTOR 


ыы k k *k k k k sk sk He He ыы 


* UTILITY SECTION * 


Ae Ae He He He Ae ыы) 


& -A DECLARE 
INT$VECTOR(5) POINTER; /* INTERRUPT VECTORS */ 

2. - DECLARE 
MONITORSSTACKPTR WORD, 
MONITORSSTACKBASE WORD; /* MONITOR SS SAVE */ 

4 1 DECLARE 
COPYRIGHT(*) BYTE DATA ('(C) 1978 INTEL CORP'); 

2^ 3 DECLARE 
BRK1SFLAG BYTE, /* TRUE IF BREAK SET */ 
BRK1$SAVE BYTE, /* INST BREAK SAVE */ 
CHAR BYTE, /* ONE CHAR LOOK AHEAD */ 
DISP(4) BYTE, /* DISPLAY ARRAY */ 
I BYTE, 
ΕΝΌΦΟΕΕ WORD, /* END OFFSET ADDRESS */ 
WORD$MODE BYTE, 
LASTSCOMMAND BYTE; 

6 1 DECLARE 
TRUE LITERALLY 'OFFH', 
FALSE LITERALLY '000H', 
ADDRSFIELD LITERALLY '1', /* ADDR FIELD WORD OUTPUT */ 
DATASFIELD LITERALLY '0', /* DATA FIELD WORD OUTPUT */ 
DATASBYTE LITERALLY т, /* DATA FIELD BYTE OUTPUT */ 
BLANK LITERALLY '1', 
NOBLANK LITERALLY '0', 
ΒΚΕΑΚΦΙΝ5Τ LITERALLY 'OCCH', /* BREAKPOINT TRAP */ 
5ТЕРФТКАР LITERALLY '0100H', /* SS TRAP FLAG MASK */ 


USERSINITSSP LITERALLY '100H', /* USER STACK INITIAL */ 
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GOSCOMMAND 
SSSCOMMAND 


LITERALLY *2‘, 
LITERALLY 31; 
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* 1/0 DECLARATIONS SECTION * 


Y * ke sk sk k kek k kok k kok k k КК e e e e e e КК He e e y 


7> ἡ DECLARE 
KB$STATSPORT LITERALLY 'OFFEAH', 
KB$DATASPORT LITERALLY 'OFFEBH!, 
KB$INIT$MODE LITERALLY 'OOH', 
KBSINIT$SCAN LITERALLY '39H', 
KBSINRDY LITERALLY '07H', 
KB$CMND$PMT(*) BYTE DATA (40H,00H,00H,00H), 
KB$SIGNON(*) ВҮТЕ DATA (40H, 00H, 7FH,7DH), 
KBSVERSION(*) BYTE DATA (00H, 00H,86H,06H), 
KBSREG$PMT(*) | BYTE DATA (50H,00H,00H,00H), 
KBSERRSMSG(*) BYTE DATA (40H, 79H,50H,50H), 
KBSEXEC(*) BYTE DATA (79H, 00H, 00H, OOH), 
КВФВЕК1(%) BYTE DATA (7CH,50H,00H,00H), 
KBS$BLANKS(*) BYTE DATA (00H,00H,00H,00H), 
LED(*) BYTE DATA 
(3FH,06H,5BH,4FH, 66H, 6DH, 7DH, 07H, 
7FH, 6FH, 77H, 7CH, 39H, 5EH, 79H, 71H); 
8 1 DECLARE 
KBPER LITERALLY '10H', 
KBCOM LITERALLY '11H', 
KBREGKEY LITERALLY '15H', 
KBCOL LITERALLY  '14H', 
KBPLUS LITERALLY '12H', 
KBMINUS LITERALLY '12H'; 
/ κ κα κ κ κ κ ΚΑ ΚΚ kok k koko k ko kok kok 
* POINTER SECTION * 
e k k k k k He He Ae He He He He Fe He He He ыы, 
9 1 DECLARE 
MEMORYSARGTSPTR POINTER, 
ARG1 STRUCTURE (OFF WORD, SEG WORD) 


AT (@MEMORYSARGISPTR), 
ΜΕΜΟΚΥΦΑΚΩΊ BASED MEMORYSARGTSPTR BYTE, 
MEMORYSWORDSARG1 BASED МЕМОКҮФАКС1ФРТК WORD, 


MEMORYSARGSSPTR POINTER, 
ARG3 STRUCTURE (OFF WORD, SEG WORD) 
АТ (@MEMORYSARGSSPTR), 
MEMORYSARGS BASED MEMORYSARGSSPTR BYTE, 


ΜΕΜΟΚΥΦΒΚΚΊΦΡΤΝ POINTER, 
BRK1 STRUCTURE (OFF WORD, SEG WORD) 
AT (ΩΜΕΜΟΒΥΦΒΚΚΊΦΡΙΝ), 
MEMORYSBRK1 BASED MEMORYSBRKTSPTR BYTE, 


MEMORYSCSIPSPTR POINTER, 
CSIP STRUCTURE (OFF WORD, SEG WORD) 
AT (@MEMORYSCSIPSPTR), 


/* 
/* 
/* 


PAGE 


/* GO COMMAND CODE */ 


STATUS/COMMAND PORT */ 
DATA PORT */ 
8 8-BIT, LEFT ENTRY, 


ENCODE, 2 KEY LOCKOUT */ 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


/* BREAKPOINT 


10MS SCAN ΚΑΤΕ */ 
IN CHAR RDY MASK */ 


'. ' */ 

i. 86! ж/ 

' 1.1' */ 

IR ' */ 

'-ERR' */ 

ТЕ ' */ 

' BR ' */ 

' ' */ 

101-171! ж/ 

I8!- F! ж/ 

PERIOD wi 
COMMA */ 
REGISTER KEY */ 
COLON (SEGMENT) */ 
PLUS KEY */ 
MINUS KEY i 


/* ARGUMENT 1 */ 


/* ARGUMENT 3 */ 


"f 


/* CS:IP INSTRUCTION */ 
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MEMORYSCSIP BASED MEMORYSCSIPSPTR BYTE, 


MEMORYSUSERSTACKSPTR POINTER, /* USER'S STACK */ 
USERSTACK STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEMORYSUSERSTACK$PTR), 
MEMORYSUSERSTACK BASED MEMORYSUSERSTACKSPTR WORD; 


ыны ыы ыы He He He koko kok k 


* REGISTER SECTION * 


Ae e He he Ae He e He e He ыы ΑΛΛΑΧ f 


DECLARE 


KB$REG(*) BYTE DATA 
(OOH, 77H, OOH, 7CH, OOH, 39H, OOH, SEH, /* AXBXCXDX */ 
6DH, 73H, 7CH, 73H, 60Η, 30H, 5EH, 30H, /* SPBPSIDI  */ 
39H, 6DH, 5EH, 6DH,6DH, 60Η, 79H, 6DH, /* CSDSSSES  */ 
30H,73H,71H,38H), /* IPFL */ 

REGSSAV(14) WORD, /* USER'S SAVED REGS */ 

REGSORD(*) BYTE DATA 
(7,6,1,3,2,0,9, 11, 12,8, 13), /* STACKED REG ORDER */ 

SP LITERALLY 'REGSSAV( 4)', 

BP LITERALLY 'REGSSAV( 5)', 

CS LITERALLY 'REGS$SAV( 8)', 

DS LITERALLY 'REG$SAV( 9)', 

SS LITERALLY 'REG$SAV(10)', 

ES LITERALLY 'REG$SAV(11)', 

IP LITERALLY 'REGSSAV(12)', 

FL LITERALLY 'REGSSAV(13)'; 


уы ыы ыы ыы He Fe He He He He He He He He He He He 


* BOOTSTRAP JUMP AND 8089 VECTOR * 
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/* THIS BOOT CONSISTS OF A LONG JUMP TO THE BEGINNING OF THE MONITOR 
AT FFOO+XXXX WHERE XXXX IS THE STARTING ADDRESS OFFSET (IP) AND 
MUST BE DETERMINED AFTER EACH COMPILE. */ 


DECLARE 


5ТАКТФАООК LITERALLY 'OO9CH', /* STARTING ADDRESS */ 
BOOT1(*) BYTE AT (ОҒҒҒҒОН) DATA (OEAH), /* LONG JUMP OPCODE */ 
BOOT2(*) МОВО AT (OFFFF1H) DATA (STARTSADDR), 

BOOT3(*) | WORD AT (OFFFF3H) DATA (ОҒҒООН); /* SEGMENT ADDRESS */ 


/* THIS TWO-WORD DATA IS A JUMP TO THE STARTING ADDRESS AND IS LOCATED 
AT THE FIRST LOCATION OF ROM (NO OTHER DATA OR CONSTANT DECLARATIONS 
MAY PRECEDE IT). THE JUMP IS ACTUALLY TO (START-ADDR)-4 SINCE THE 
INSTRUCTION IS A RELATIVE JUMP OF LENGTH 3. */ 


DECLARE 


BOOT4(*) WORD DATA (OE990H,STARTSADDR-4); /* NOP,JMP START-ADDR */ 


/* THIS BLOCK OF ROM AT FFFF6-FFFFA IS INITIALIZED FOR THE 8089 
DEVICE AND POINTS TO A BLOCK OF RAM AT LOCATION 100H. */ 


DECLARE 


BLOCK$8089 WORD AT (OFFFF6H) DATA (00001Н), 
BLOCK$8089$PTR POINTER AT (OFFFF8H) DATA (00100H); 


PAGE 
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COMMON PROCEDURES 


THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHER 
LEVEL ROUTINES. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 
1. BASIC I/O SECTION 


KB$DISPLAY DISPLAY TO LED FIELDS 
KB$BLANK$DATA$FIELD BLANK DATA FIELD WITH PROMPTS 
KB$BLANK$ADDR$FIELD BLANK ADDRESS FIELD WITH PROMPTS 
KB$OUT$BYTE OUTPUT A BYTE TO DISPLAY 
KB$OUT $WORD OUTPUT A WORD TO DISPLAY 
KB$GET$CHAR INPUT A CHAR FROM KEYPAD 

2. ARGUMENT EXPRESSION EVALUATOR 
KB$GET$EXPR GET WORD EXPRESSION 
KB$GET$ADDR GET ADDRESS EXPRESSION 
KB$UPDATE$IP GET OPTIONAL CS:IP 

3. INTERRRUPT AND RESTORE/EXECUTE ROUTINES 
SAVE$REGISTERS SAVES USERS REGISTERS 
RESTORESEXECUTE RESTORE MACHINE STATE AND EXEC 
INTERRUPRTSENTRY INTERRUPT FOR SINGLE STEP 
INITERRUPTSSENTRY INTERRUPT ROUTINE FOR GO 
INITSINTSVECTOR INITIALIZES INTERRRUPT VECTORS 


*/ 
82% e e He ыы ыы 


* BASIC I/O SECTION * 
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KB$DISPLAY: 
/* THIS ROUTINE DISPLAYS THE CONTENTS OF THE ARRAY POINTED TO BY 
THE FIRST PARM TO THE FIELD SPECIFIED BY THE SECOND (ADDR OR 
DATA). THE NUMBER OF DECIMAL POINTS OR PROMPTS IS DETERMINED 
BY THE THIRD PARAMETER */ 
PROCEDURE (PTR,FIELD,PROMPTS); 
DECLARE PTR POINTER, (FIELD,PROMPTS,T) BYTE, 
DISPLAY BASED PTR (1) BYTE; 
IF FIELDZADDRSFIELD THEN 
OUTPUT(KBSSTATSPORT) = 94H; /* ADDRESS FIELD */ 
ELSE 
OUTPUT(KBSSTATSPORT) = 90H; /* DATA FIELD */ 
DO І-0 TO 3; 
T = DISPLAY(3-1); /* DISPLAY BACKWARDS! */ 
IF PROMPTS>I THEN T 
OUTPUT (KBSDATASPORT ) 
END; 
END; 


" I 
j 
-. 


KBSBLANKSDATASFIELD: 
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/* THIS ROUTINE BLANKS THE DATA FIELD OF THE DISPLAY WITH THE 


NUMBER OF PROMPTS (DECIMAL POINTS) AS SPECIFIED BY THE PARAMETER. */ 


PROCEDURE (PROMPTS); 

DECLARE PROMPTS BYTE; 

CALL KBSDISPLAY(@KBSBLANKS , DATASF IELD , PROMPTS); 
END; 


KBSBLANKS$ADDRSF I ELD: 
/* THIS PROCEDURE BLANKS THE ADDRESS FIELD OF THE DISPALY WITH THE 
NUMBER OF PROMPTS SPECIFIED BY THE PARAMETER 'PROMPTS'. */ 
PROCEDURE (PROMPTS); 
DECLARE PROMPTS BYTE; 
CALL KBSDISPLAY(@KBSBLANKS , ADDRSFIELD , PROMPTS); 
END; 


KBSOUTSBYTE: 

/* THIS ROUTINE OUTPUTS THE BYTE INPUT FROM THE FIRST PARAMETER 
TO THE DATA FIELD WITH THE NUMBER OF PROMPTS SPECIFIED BY THE 
SECOND PARAMETER. */ 

PROCEDURE (B , PROMPTS); 

DECLARE (B,PROMPTS) BYTE; 
015Р(0),015Р(1) = 0; /* FIRST TWO BLANK */ 
DISP(2) = LED(SHR(B,4) AND OFH); 
DISP(3) = LED(B AND OFH); 
CALL KBSDISPLAY(@DISP,DATASFIELD, PROMPTS); 
END; 


KBSOUT SWORD : 
/* THIS ROUTINE OUTPUTS THE FIRST PARM TO THE FIELD SPECIFIED 
BY THE SECOND WITH THE NUMBER OF PROMPTS SPECIFIED BY THE THIRD. 
LEADING ZERO BLANKING IS PERFORMED IF SPECIFIED BY THE FOURTH 
PARAMETER. */ 
PROCEDURE (М, FIELD, PROMPTS, BLANKING); 
DECLARE W WORD, (FIELD,PROMPTS,BLANKING) BYTE; 


DO І-0 TO 3; 
DISP(I) = LEDCSHR(W, C5- 1)*4) AND OOOFH); 
END; 
IF BLANKING=BLANK THEN /* BLANK LEADING O'S */ 
DO; 
I = 0; 
DO WHILE DISP(I)=3FH AND I<3; 
DISP(I) = 0; 
еле; 
END; 
END; 
CALL KBSDISPLAY(@DISP,FIELD,PROMPTS); 
END; 
KBSGETSCHAR: 


/* READS ONE CHARACTER FROM THE FIFO OF THE 8279. WAITS UNTIL 
CHARACTER IS AVAILABLE AND THEN RETURNS THE CHARACTER IN GLOBAL 
VARIABLE 'CHAR'. */ 

PROCEDURE ; 

DO WHILE (INPUT(KBSSTATSPORT) AND КВФІМЕОҮ)-0; END; 
OUTPUT(KBSSTATSPORT) = 040H; /* ENABLE INPUT DATA */ 
CHAR = INPUT(KBS$DATAS$PORT); /* READ CHARACTER */ 

END; 


PAGE 
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* ARGUMENT EXPRESSION EVALUATOR SECTION * 
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62 1 KB$GET$EXPR: 

/* THIS ROUTINE GATHERS CHARACTERS FROM THE INPUT STREAM 
AND FORMS A WORD EXPRESSION WHICH IS RETURNED AS THE VALUE 
OF THE PROCEDURE. THE CHARACTERS INPUT ARE ECHOED TO THE 
ADDRESS OR DATA FIELD AS SPECIFIED BY THE FIRST PARAMETER. 
IF THE FIRST PARM IS O (ADDR) OR 1 (DATA) THEN THE EXPRESSION IS 
OUTPUT AS A WORD AND IF -1 (DATA$BYTE) THEN AS A BYTE ALWAYS IN 
DATA FIELD. THE NUMBER OF PROMPTS BY THE SECOND PARM, AND LEADING 
ZERO BLANKING BY THE THIRD. EXPRESSION ARE TERMINATED WITH 
A COMMA,PERIOD OR COLON. 'CHAR' WILL CONTAIN ONE OF THESE 
ON EXIT. */ 

PROCEDURE (FIELD,PROMPTS,BLANKING) WORD; 


63 2 DECLARE (FIELD,PROMPTS,BLANKING) BYTE, 

(SAVE,W) WORD, OPER BYTE; 
64 2 OPER = KBPLUS; 
65 2 W = 0; 
66 2 DO WHILE TRUE; 
67 3 IF CHAR=KBREGKEY THEN 
68 3 DO; /* REGISTER NAME */ 
69 4 CALL KBSDISPLAY(@KBSREGSPMT, FIELD, PROMPTS); 
70 4 CALL KBSGETSCHAR; 
71 4 IF CHAR>ODH THEN GOTO ERROR; /* INVALID REG KEY */ 
73 4 SAVE = REG$SAV(CHAR); 
78 4 IF FIELD=DATA$BYTE THEN 
75 4 CALL KB$OUT$BYTE(LOW(SAVE),PROMPTS); 

ELSE 

76 4 CALL KB$OUT$WORD(SAVE,FIELD,PROMPTS,BLANKING); 
77 4 CALL KB$GET$CHAR; 
78 END; 

ELSE 
79 3 DO; /* NUMBER */ 
80 4 IF CHAR>OFH THEN GOTO ERROR; /* INVALID DIGIT */ 
82 4 SAVE = 0; 
85 4 DO WHILE CHAR<=OFH; 
84 5 SAVE = SHL(SAVE,4) + DOUBLE(CHAR); 
85 5 IF FIELD=DATASBYTE THEN 
86 5 CALL KB$OUTSBYTECLOW(SAVE) , PROMPTS); 


ELSE 


ELSE 
CALL KBSOUTSWORD(W, FIELD, PROMPTS, BLANKING); 
IF CHAR=KBCOM OR CHAR=KBPER OR CHAR=KBCOL THEN 


87 5 CALL KBSOUTSWORD(SAVE, FIELD, PROMPTS, BLANKING); 
88 5 CALL KBSGETSCHAR; 
89 5 END; 
90 ὁ END; 
91 3 IF OPER=KBPLUS THEN /* EVAL PREV OPER */ 
92 3 W = W + SAVE; 
ELSE 

93 3 М = М - SAVE; 
94 3 IF FIELD=DATASBYTE THEN 
95 3 CALL KB$OUTSBYTE(LOW(W) , PROMPTS); 

3 

3 
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RETURN W; 

IF CHAR=KBPLUS OR CHAR=KBMINUS THEN 
OPER = CHAR; 

ELSE 
GOTO ERROR; 

CALL KBSGETSCHAR; 

END; 
END; 


/* GET NEXT CHAR */ 


KBSGETSADDR: 

/* THIS ROUTINE GATHERS CHARACTERS FROM THE INPUT STREAM AND 
FORMS AN ADDRESS EXPRESSION OF SEGMENT PART AND OFFSET PART. 
THE FIRST CHARACTER HAS ALREADY BEEN READ INTO GLOBAL 'CHAR'. 
IF NO SEGMENT IS ENTERED, THE SECOMD PARM DEFAULT IS USED, THE 
ADDRESS EXPRESSION IS DISPLAYED IN THE ADDRESS FIELD WITH THE 
NUMBER OF PROMPTS SPECIFIED BY THE THIRD PARM. */ 

PROCEDURE (PTR , DEFAULTSBASE , PROMPTS); 

DECLARE PTR POINTER, DEFAULTSBASE WORD, PROMPTS BYTE, 
ARG BASED PTR STRUCTURE (OFF WORD, SEG WORD); 

ARG.SEG = DEFAULTS$BASE; 

ARG.OFF = KB$GETSEXPR(CADDRSFIELD , PROMPTS,BLANK) ; 

IF CHAR=KBCOL THEN /* SEGMENT SPEC'D */ 
DO; 
CALL KBSGETSCHAR; 
ARG.SEG = ARG.OFF; 
ARG.OFF = KB$GETSEXPR(CADDRSFIELD , PROMPTS,BLANK); 
IF CHAR=KBCOL THEN GOTO ERROR; 
END; 

END; 


KBSUPDATESIP: 

/* THIS ROUTINE IS CALLED BY SINGLE STEP AND GO TO OUTPUT THE CURRENT 
CS:IP AND THE CURRENT INSTRUCTION BYTE. CS:IP IS OPENED FOR 
OPTIONAL INPUT. */ 

PROCEDURE; 

CALL KBSOUT$WORD(IP,ADDRSFIELD,1,BLANK); /* DISPLAY IP */ 
CSIP.OFF = IP; 
CSIP.SEG = CS; 
CALL КВФООТФВҮТЕ(МЕМОКҮ9С5ІР,0); 
CALL KBSGETSCHAR; 
IF CHAR<>KBCOM AND CHAR<>KBPER THEN 
DO; /* CHANGE CS:IP */ 
CALL KBS$BLANKSADDRSFIELD(1); 
CALL KBSBLANKSDATASFIELD(0); 
CALL KB$GETSADDR(QGCSIP,CS, 1); 
END; 
END; 


уы ыы ыы Fe Fe Fe He He He He ыы ыны 


* INTERRUPT AND RESTORE/EXECUTE SECTION * 


Ae che he fe dede dee dede k k dee de je je dede k dede oe e k k k k k koko e k kok k k ko ko o e este f 


SAVE$REGISTERS: 
/* THIS ROUTINE IS USED TO SAVE THE STACKED USER'S REGISTERS IN THE 
MONITOR'S SAVE AREA. */ 
PROCEDURE; 
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BP = MEMORYSUSERSTACK; 

USERSTACK.OFF = USERSTACK.OFF + 4; 

DO 1=0 TO 10; /* POP REGISTERS OFF OF STACK */ 
REGSSAV(REGSORD(I)) = MEMORYSUSERSTACK; 
USERSTACK.OFF = USERSTACK.OFF + 2; 


SS = USERSTACK.SEG; 
SP = USERSTACK.OFF; 


RESTORESEXECUTE : 
/* THIS PROCEDURE RESTORES THE STATE OF THE USER MACHINE AND 


PASSES CONTROL BACK TO THE USER PROGRAM. IT CONTAINS A 
MACHINE LANGUAGE SUBROUTINE TO PERFORM THE POPPING OF THE 
USER REGISTERS AND TO EXECUTE AN 'IRET' TO TRANSFER CONTROL 
TO THE USER'S PROGRAM. */ 


PROCEDURE; 
DECLARE RESTORESEXECUTESCODE(*) BYTE DATA 
(08BH,OECH, /* MOV BP,SP “/ 
08BH,046H, 002H, /* MOV AX,/BP/.PARM2  */ 
08ВН,05ЕН,004Н, /* MOV BX,/BP/.PARM|  */ 
O8EH, ODOH, /* MOV SS,AX u | 
O8BH, OE3H, /* MOV SP,BX */ 
05DH, /* POP BP */ 
O5FH, /* POP DI */ 
05ЕН, /* POP SI ж 
05BH, /* POP BX */ 
05ΑΗ, /* POP DX */ 
059H, /* POP CX */ 
058H, /* POP AX */ 
O1FH, /* POP DS */ 
007H, /* POP ES */ 
OCFH), /* IRET */ 


RESTORESEXECUTESCODESPTR WORD DATA (.RESTORESEXECUTESCODE ); 


USERSTACK.SEG = 
USERSTACK.OFF = SP; 
DO 1=0 TO 10; /* PUSH USER'S REGISTERS ONTO HIS STACK */ 
USERSTACK.OFF = USERSTACK.OFF - 2; 
MEMORYSUSERSTACK = REGSSAV(REG$ORD(10-1)); 
END; 
USERSTACK.OFF = USERSTACK.OFF - 2; 
MEMORYSUSERSTACK = BP; 
CALL RESTORESEXECUTESCODESPTR(USERSTACK OFF ,USERSTACK.SEG); 


END; 


INTERRUPT 1$bNTRY: 
/* THIS PROCEDURE IS CALLED WHEN THE CPU IS INTERRUPTED BY EXECUTING 


AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP). */ 


PROCEDURE INTERRUPT 1; 


USERSTACK.OFF = STACKPTR; /* SAVE USER STACK INFO */ 
USERSTACK.SEG - STACKBASE; 
STACKPTR = MONITORSSTACKPTR; 
STACKBASE = MONI TORSSTACKBASE; 
CALL SAVESREGISTERS; 

FL = FL AND (NOT STEPSTRAP); 


IF LAST$COMMAND«»SS$COMMAND THEN 


/* CLEAR STEP FLAG */ 
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CALL RESTORESEXECUTE ; /* CONTINUE IF NOT SS */ 
CALL KBSUPDATESIP; 
IF CHAR=KBCOM THEN 
DO; 
CSIP.OFF; 
CSIP.SEG; 
FL OR STEPSTRAP; Г" SET STEP FLAG */ 
CALL RESTORESEXECUTE; 
END; 
IF CHAR<>KBPER THEN GOTO ERROR; 
СОТО AFTERSCOMMAND ; 
END; 


oO 
N 
"n η H 


INTERRUPT3SENTRY : 
/* THIS PROCEDURE IS CALLED WHEN THE CPU EXECUTES A 'INT 3! INSTRUCTION. 
THE MONITOR INSERTS THIS (OCCH) FOR A BREAKPOINT. ALSO AN EXTERNAL 
INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE TO BE 


CALLED. */ 
PROCEDURE INTERRUPT 3; 
USERSTACK.OFF = STACKPTR; /* SAVE USER STACK INFO */ 


USERSTACK.SEG = STACKBASE; 
STACKPTR = MONITORSSTACKPTR; 
STACKBASE = MONI TORSSTACKBASE; 
CALL SAVESREGISTERS; 
GOTO AFTERSINTERRUPT; 

END; 


INITSINTSVECTOR: 

/* THIS ROUTINE INITIALIZES AN INTERRRUPT VECTOR AS FOLLOWS: THE OFFSET 
FROM THE ADDRESS OF 'INTSROUTINE' CORRECTED BY THE APPROPRIATE 
NUMBER OF BYTES FOR THE INTERRUPT PLM PROLOGUE. THE SEGMENT FROM THE 
CURRENT CS REGISTER IS DETERMINED BY A MACHINE LANGUAGE CODED 
SUBROUTINE. */ 

PROCEDURE ( INTSVECTORSPTR, INT$ROUT INESOFFSET); 

DECLARE ІМТФУЕСТОКФРТЕ POINTER, INTSROUTINESOFFSET WORD, 
VECTOR BASED INTSVECTORSPTR STRUCTURE (OFF WORD, SEG WORD), 
CORRECTION LITERALLY '19H', /* OFFSET FOR PROLOGUE */ 
INITSINTSVECTORSCODE(*) BYTE DATA 


(055H, /* PUSH BP "y 
08BH, OECH, /* MOV BP,SP */ 
O8CH,OC8H, /* MOV AX,CS 37 
0C4H,05EH,004H, /* LES BX,/BP/.PARM1 */ 
026H,089H,007H, /* MOV ES:W/BX/ , AX 97 
05DH, /* POP BP *7 
OC2H,004H,000H), /* RET 4 "y 


INITSINTSVECTORSCODESPTR WORD DATA (.INIT$INT$VECTOR$CODE); 


CALL INITSINTSVECTORSCODESPTR(@VECTOR.SEG); /* SEGMENT PORTION */ 
VECTOR.OFF = INT$ROUTINE$OFFSET - CORRECTION; /% OFFSET PORTION */ 
END; 


/* ХЕ * * e e e e e * e e e e ehe e e e e e e k k k k e k k k k k e k e e ee de de de dede de de de e de de de e kk k k k e k k k kk k k 
* e e e e * e e * e de k e k e ee e de e e k k k k k dee e k k dee e e ὑς de e k kk dee e dee e dee k dee de dee e k kk dee kk hk 
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ABSTRACT 


THIS MODULE CONTAINS ALL THE COMMANDS IMPLEMENTED AS INDIVIDUAL PROCEDURES 
AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 


1. COMMANDS SECTION 


KB$GO GO 
KB$SINGLESSTEP SINGLE STEP 
КВФЕХАМФМЕМ SUBSTITUTE MEMORY 
КВФЕХАМФКЕС EXAMINE REGISTER 
KB$MOVE MOVE 
KBSINPUT INPUT PORT 
KBSOUTPUT OUTPUT PORT 
2. COMMAND DISPATCH (OUTER BLOCK, MAIN PROGRAM LOOP) 
МЕХТФСОММАМО DISPATCH 
ERROR ERROR ROUTINE 


gi 
/ *'k'k'k' k k k k kok k kok k k k k k o К 


* COMMANDS SECTION * 


* kk k k k k k k k k ыы He e We y 


KB$GO: 

/* IMPLEMENTS THE 'GO' COMMAND. DISPLAYS IP AND CURRENT INSTRUCTION 
BYTE AND OPENS CS:IP FOR INPUT AND ONE OPTIONAL BREAKPOINT. 
BEGINS EXECUTION WHEN A PERIOD IS DEPRESSED AND DISPLAYS 'E' IN 
THE ADDRESS FIELD. UPON ENCOUNTERING A BREAKPOINT, 'BR' IS 
DISPLAYED IN THE DATA FIELD. */ 


PROCEDURE ; 
CALL KBSUPDATESIP; /* OPTIONAL CHANGE CS:IP */ 
IF CHAR-KBCOM THEN 
DO; /* BREAKPOINT */ 


CALL KBSBLANKSADDRSFIELD(1); 
CALL KBS$BLANKSDATASFIELD(O0); 
CALL KBSGETSCHAR; 
CALL KBSGETSADDR(@BRK1,CSIP.SEG,1); 
IF CHAR<>KBPER THEN GOTO ERROR; 
BRK1$SAVE = MEMORYSBRK1; 
MEMORYSBRK1 = BREAKSINST; 
IF MEMORYSBRK1<>BREAKSINST THEN GOTO ERROR; 
BRK1$FLAG = TRUE; 
END; 
ELSE 
IF CHAR<>KBPER THEN GOTO ERROR; 
CALL KBSDISPLAY(@KBSEXEC, ADDRSFIELD,0); 
CALL KB$BLANKS$DATASFIELD(0); 
= CSIP.OFF; 
CS = CSIP.SEG; 
= FL AND (NOT STEPSTRAP); 
CALL RESTORESEXECUTE; 
END; 


KBSSINGLESSTEP: 
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/* IMPLEMENTS THE SINGLE STEP COMMAND. DISPLAYS IP AND THE 


CURRENT INSTRUCTION WORD. OPENS CS:IP FOR INPUT. DEPRESSING 
COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, 
AND PERIOD TERMINATES THE COMMAND. */ 


PROCEDURE; 


CALL KB$UPDATE$IP; /* OPTIONAL CHANGE OF CS:IP */ 
IF CHAR<>KBCOM THEN GOTO ERROR; 

CSIP.OFF; 

CSIP.SEG; 

FL OR STEPSTRAP; /* SET TRAP FLAG BIT IN PSW */ 
CALL RESTORESEXECUTE; 


e 
o 
"Ë( H Hl 


KB$EXAM$MEM: 
/* IMPLEMENTS THE EXAMINE MEMORY COMMAND. PROMPTS FOR AN 


ADDRESS AND THEN DISPLAYS THE BYTE OR WORD AT THAT LOCATION. 
IT THEN IS OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO 
THE NEXT LOCATION. PERIOD TERMINATES. */ 


PROCEDURE; 
DECLARE W WORD; 
CALL KB$BLANK$ADDR$FIELD(1); /* PROMPT FOR ADDRESS */ 
CALL KB$GET$CHAR; 
CALL KBSGETSADDR(@ARG1,CS,1); /* GET ADDRESS */ 


IF CHAR<>KBCOM THEN GOTO ERROR; 
DO WHILE TRUE; 
CALL KB$OUT$WORD(ARG1.OFF,ADDR$FIELD,O,BLANK); /* CLEAR PROMPT */ 
IF WORDSMODE THEN 
CALL KBSOUTSWORD (MEMORYSWORDSARG1 , DATASFIELD, 1,NOBLANK); 
ELSE 
CALL KBSOUTSBYTE(MEMORYSARG1, 1); 
CALL KBSGETSCHAR; 
IF CHAR=KBPER THEN RETURN; 
IF CHAR<>KBCOM THEN 
IF WORD$MODE THEN 
DO; 
W = KBSGETSEXPR(DATASFIELD, 1,NOBLANK); 
IF (СНАК<>КВСОМ) AND (CHAR<>KBPER) THEN GOTO ERROR; 
MEMORYSWORDSARG1 = W; 
IF MEMORYSWORDSARG1<>W THEN GOTO ERROR; 
END; 
ELSE 
DO; 
W = KBSGETSEXPR(DATASBYTE, 1,NOBLANK); 
IF (CHAR<>KBCOM) AND (CHAR<>KBPER) THEN GOTO ERROR; 
MEMORYSARG1 = LOW(W); 
IF MEMORYSARG1<>LOW(W) THEN GOTO ERROR; 
END; 
IF CHAR=KBPER THEN RETURN; 
IF WORDSMODE THEN 
ARG1.OFF = ARG1.OFF + 2; 
ELSE 
ARG1.OFF = ARG1.OFF + 1; 
END; 


END; 


KBSEXAMSREG: 
/* IMPLEMENTS THE EXAMINE REGISTER COMMAND. PROMPTS FOR A VALID 
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REGISTER KEY AND DISPLAYS THE VALUE OF THAT REGISTER WHICH IS 
OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO NEXT REGISTER 
UNLESS IT IS 'FL' WHICH TERMINATESS AS DOES PERIOD. */ 


PROCEDURE; 


DECLARE I BYTE, SAVE WORD; 
CALL KBSBLANKSADDRS$FIELD(1); 
CALL KBSGETSCHAR; 
IF CHAR>ODH THEN GOTO ERROR; 
I = CHAR; 
DO WHILE TRUE; 
DISP(O),DISP(1) = 0; 
DISP(2) = KB$REG(I*2); 
DISP(3) = KBSREG(I*2+1); 
CALL KBSDISPLAY(@DISP,ADDRSFIELD,0); 
CALL KBSOUTSWORD(REG$SAV(1),DATASFIELD,1,NOBLANK); /* VALUE */ 
CALL KBSGETSCHAR; 
IF CHAR<>KBCOM AND CHAR<>KBPER THEN 
DO; 
SAVE = KBSGETSEXPR(DATASFIELD,1,NOBLANK); /* UPDATE */ 
IF CHAR<>KBCOM AND CHAR<>KBPER THEN GOTO ERROR; 
REGSSAV(I) = SAVE; 
END; 
IF CHAR=KBPER OR I=13 THEN RETURN; /* DONE? */ 
гате 1; 
END; 


/* INVALID REG KEY */ 


/* DISPLAY REG NAME */ 


END; 


KBSMOVE : 
/* IMPLEMENTS THE MOVE COMMAND. PROMPTS FOR 3 ARGUMENTS AND MOVES 


THE BLOCK OF MEMORY SPECIFIED BY ARG1-ARG2 TO ARGS. IF THERE IS 
A DIFFERENCE WHEN READ BACK, THEN ERROR. */ 


PROCEDURE; 


LOOP: 


CALL KB$BLANKSADDRSFIELD(3); /* FIRST ARGUMENT */ 
CALL ΚΒΦΟΕΤΦΟΗΑΒ; 

CALL KB$GETSADDR(QARG1,CS, 3); 

IF CHAR<>KBCOM THEN GOTO ERROR; 

CALL KBS$BLANKSADDRSFIELD(2); 

CALL ΚΒΦΟΕΤΦΟΗΑΒ; 

ENDSOFF = KB$GETSEXPR(ADDR$FIELD, 2, BLANK); 
IF ENDSOFF<ARG1.OFF THEN GOTO ERROR; 
IF CHAR<>KBCOM THEN GOTO ERROR; 

CALL KBSBLANKSADDR$FIELD(1); 

CALL КВФСЕТФСНАВ; 

CALL KB$GETSADDR(GARG3, ARG1.SEG, 1); 
IF CHAR<>KBPER THEN GOTO ERROR; 


/* SECOND ARGUMENT */ 


/* THIRD ARGUMENT */ 


MEMORYSARG3 = MEMORYSARG1; 

IF MEMORYSARG3<>MEMORYSARG1 THEN GOTO ERROR; 
IF ARG1.OFF = END$OFF THEN RETURN; 

ARG1.OFF = ARG1.OFF + 1; 

ARG3.OFF = ARG3.OFF + 1; 

GOTO LOOP; 


END; 


KBSINPUT: 


/* PROMPTS FOR A PORT WORD IN THE ADDRESS FIELD. WHEN A COMMA 


IS ENTERED THE BYTE OR WORD IS DISPLAYED IN THE DATA FIELD. 
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THIS MAY BE REPEATED FOR MULTIPLE READING OF THE PORT. PERIOD 
TERMINATES THE COMMAND. */ 


PROCEDURE ; 


DECLARE PORT WORD; 

CALL KBS$BLANKSADDRSFIELD(1); 
CALL КВФСЕТФСНАВ; 

PORT = KB$GETSEXPR(ADDRSFIELD, 1, BLANK); /* GET PORT NUMBER */ 
CALL KB$OUTSWORD(PORT,ADDRSFIELD,O,BLANK); X /* REMOVE PROMPT */ 


/* PROMPT FOR PORT */ 


LOOP: 
IF CHAR<>KBCOM THEN GOTO ERROR; 
IF WORD$MODE THEN 
CALL KB$OUTSWORD ( INWORD (PORT) , DATASF IELD , O, NOBLANK) ; 
ELSE 
CALL KBS$OUTSBYTE( INPUT(PORT),0); 
CALL КВФСЕТФСНАВ; 
IF CHAR-KBPER THEN RETURN; 
GOTO LOOP; 
END; 
KBSOUTPUT: 


/* PROMPTS FOR A PORT WORD IN THE ADDRESS FIELD AND A BYTE OR 


WORD DATUM IN THE DATA FIELD. THIS DATUM IS OUTPUT A SINGLE TIME 
TO THE SPECIFIED PORT. */ 


PROCEDURE; 


DECLARE (DATUM,PORT) WORD; 

CALL KBSBLANKSADDRSFIELD(1); 

CALL КВФСЕТФСНАВ; 

PORT = KB$GETSEXPR(ADDRSFIELD, 1, BLANK); 
IF CHAR<>KBCOM THEN GOTO ERROR; 

CALL KBSOUTSWORD(PORT,ADDRSFIELD,O,BLANK);  /* REMOVE PROMPT */ 
CALL KBS$BLANKSDATASFIELD(1); /* PROMPT FOR DATUM */ 
CALL KB$GETSCHAR; 


/* PROMPT FOR PORT */ 


IF WORDSMODE THEN 

DATUM = KB$GETSEXPR(DATASFIELD, 1,NOBLANK); /* GET DATUM WORD */ 
ELSE 

DATUM = KBSGETSEXPR(DATASBYTE,1,NOBLANK); /* GET DATUM BYTE */ 
IF CHAR=KBCOL THEN GOTO ERROR; 
IF WORDSMODE THEN 

OUTWORD(PORT) = DATUM; 
ELSE 

OUTPUT(PORT) = LOW(DATUM); 
IF CHAR=KBCOM THEN /* MULTIPLE OUTPUTS */ 

DO; 

CALL KBSBLANKSDATASFIELD(1); 

CALL KBSGETSCHAR; 

IF CHAR<>KBPER THEN GOTO LOOP; 

END; 


END; 


уы ыы He He He He e He He He He He He e He He He He He e He He He He He He He He ΧΑΑ k k 
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COMMAND DISPATCH MAIN PROGRAM LOOP  * 
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DISABLE; 
OUTPUT(KBSSTATSPORT) = KB$INIT$MODE; /* INIT 8279 */ 
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ОМТРОТ(КВ%5ТАТФРОКТ) = KBSINITSSCAN; 
CALL KBSDISPLAY(@KB$SIGNON,ADDR$FIELD,0); /* SIGN ON MESSAGE */ 
CALL KB$DISPLAY(QKB$VERSION,DATASFIELD,O); /* VERSION NUMBER */ 


/* INITIALIZE USER'S REGISTERS */ 
CS,SS,DS,ES,FL,IP = 0; 
SP = USERSINITSSP; 


CALL INITS$INTSVECTOR(GINTSVECTOR( 1), . INTERRUPT ΊΦΕΝΤΕΥ); 

CALL ІМІТФІМТФМЕСТОВК(ӘІМТФМЕСТОК (2), . INTERRUPTSSENTRY); 

CALL INITSINTSVECTOR(GINT$VECTOR(3) , . INTERRUPTSSENTRY); 
BRK1$FLAG = FALSE; 

MONITORSSTACKBASE = STACKBASE; /* SAVE MONITOR STACK VALUES */ 
MONITORSSTACKPTR = STACKPTR; 

GOTO AFTERSERROR; 


NEXTSCOMMAND : 


/* 


THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES TO EACH 
COMMAND WHICH IS A SEPARATE PROCEDURE. */ 


CALL KBSDISPLAY(@KBSCMNDSPMT , ADDRS$FIELD,0); 


AFTERSERROR: 


CALL KBSGETSCHAR; 
CALL КВФВІ АМКФАООЕФҒІЕІ 0(0); 
CALL ΚΒΦΒΙ АМКФОАТАФҒІЕІ (0); 
IF (LASTSCOMMAND :=CHAR)>O9H THEN GOTO ERROR; 
WORDSMODE = FALSE; 
DO CASE CHAR; 
CALL КВФЕХАМФМЕМ; 
CALL ΚΒΦΕΧΑΜΦΒΕΩ; 
CALL KB$GO; 
CALL KBSSINGLESSTEP; 
CALL ΚΒΦΙΝΡυΤ; 
CALL KB$OUTPUT; 
CALL ΚΒΦΜΟνΕ; 
DO; WORDSMODE 
DO; WORDSMODE 
DO; WORDSMODE 
END; 


TRUE; CALL КВФЕХАМФМЕМ; END; 
TRUE; CALL КВФІМРОТ; ЕМО; 
TRUE; CALL KBSOUTPUT; ЕМО; 


AFTERSCOMMAND : 


ERROR: 
/* 


CALL KB$BLANKSDATASFIELD(0); 
СОТО МЕХТ%СОММАМО; 


THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE MONITOR AND WILL 
OUTPUT THE ERROR MESSAGE TO THE DISPLAY AND THEN JUMP TO 
'AFTERSERROR' TO GET ANOTHER COMMAND. */ 


CALL KBSDISPLAY(@KBSERRSMSG, ADDRSFIELD,0); 
CALL KBSBLANKSDATASFIELD(0); 
GOTO AFTERSERROR; 


AFTERSINTERRUPT: 


/* 


THIS ROUTINE CHECKS FOR THE LAST COMMAND WHEN THE MONITOR IS 
REENTERED VIA THE INTERRUPT VECTOR. */ 
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IF BRKTSFLAG THEN 


404 1 DO; 

405 2 MEMORYSBRK1 = BRK1SSAVE; 

406 2 BRK1$FLAG = FALSE; 

407 2 IF ((IP-1) AND OOOFH)=(BRK1.OFF AND OOOFH) AND 
(SHRCIP-1,4)+CS)=(SHR(BRK1.OFF,4)+BRK1.SEG) THEN 

408 2 DO; 

409 3 IP = IP - 1; 

410 3 CALL KB$DISPLAY(GKBSBRK1,DATASFIELD,0); 

41 3 GOTO ΝΕΧΤΦΟΟΜΜΑΝΟ; 

412 3 END; 

413 2 END; 

414 1 GOTO AFTERSCOMMAND; 

415 1 END MONITOR; /% END OF MODULE */ 


EOF 


MODULE INFORMATION: 


CODE AREA SIZE = 0B82H 2946р 
CONSTANT AREA SIZE = OOOOH OD 
VARIABLE AREA SIZE - 0065H 101D 
MAXIMUM STACK SIZE = 0050H 80D 


865 LINES READ 
0 PROGRAM ERROR(S) 


END OF PL/M-86 COMPILATION 
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1515-11 PL/M-86 V1.0 COMPILATION OF MODULE MONITOR 


NO OBJECT MODULE REQUESTED 
COMPILER INVOKED BY: :F1:PLM86 :F1:KEYPAD.PLM LARGE OPTIMIZE(2) PAGEWIDTH(95) & 


CODE XREF NOOBJECT PRINT(:F1:KEYPAD.PRT) 


$TITLE('SDK86 KEYPAD MONITOR') 
$NOINTVECTOR 


/* * e e de de e de de de de de de de de fe de e e k k e de dede de ede e de de de dee e de de de de dee de de de de de dede de k k de de ede de dede de dede dede e $e 
Li e e e e de de de de de e de de e de de e de ede e de de de de e e de de de de de de de de dede de de de de de de de de de e de de de dede dede de de de dede dede dn 


SDK-86 KEYPAD MONITOR, V1.1 
30 JUNE 1978 


(C) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. NO PART OF 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, SANTA 
CLARA, CALIFORNIA, 95051. 


* se ve e e vie e e e e de de e e e e e e de de de de de e e e e e e de e e e e e k de e e e e de de de de dee dee e e de dede e de ee ee ede $ 
* fe e e e e e e e e e e de de de e de e e e e de dede de e e e de dede dee ee e e de de dee e e e de dede * We dee de * de dede dede dede de * * * 


ABSTRACT 


THIS PROGRAM IS THE ROM BASED KEYPAD MONITOR FOR THE SDK-86. 
IT PROVIDES THE USER WITH A MODERATE LEVEL OF CAPABLILITY TO 
EXAMINIE/MODIFY MEMORY AND REGISTERS AND CONTROL PROGRAM EXECUTION. 


ENVIRONMENT 


THE SOK KEYPAD MONITOR COMMUNICATES WITH THE USER VIA THE ONBOARD 
KEYBOARD AND 7 SEGMENT DISPLAY. 


PROGRAM ORGANIZATION 


THE PROGRAM IS DIVIDED INTO 1 DATA AND 2 CODE MODULES: 
1. DATA DECLARATION MODULE. GLOBAL DATA DECLARATIONS. 
2. COMMON ROUTINES. LOWER LEVEL PROCEDURES 
3. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 


CALLING GRAPH 


»»COMMAND DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
COMMON ROUTINES 


GLOBAL DATA STRUCTURES 


THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) IN A 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 

AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 

POINTERS TO THE SDK-86 2**20 ADDRESS SPACE ARE IMPLEMENTED WITH 
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POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 
"/ 
1 MONITOR:DO; /* BEGINNING OF MODULE */ 


/* Fe e dede de ee e de e e e e eee eee ee de ee e e de dee ee e dee e dee e ede eee ee e dee eee e e de ede dee de dede ede e 
* e e de e dee ee dee de de k k de de e k k k k k k k k e e e ee dee de e e de e dede dede dede dede dede dede dede de k hk k k dede k kk k k 


GLOBAL DATA DECLARATIONS MODULE 


THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 
LITERALS (EQUATES). 


MODULE ORGAINI ZATION 


THE MODULE IS DIVIDED INTO 5 SECTIONS: 


1. UTILITY SECTION GLOBAL FLAGS, VARIBLES, EQUATES 

2. 1/0 SECTION 1/0 PORTS,MASKS,AND SPECIAL CHARS 
3. MEMORY ARGUMENTS SECTIONS STRUCTURES FOR MEDIUM POINTERS 

4. REGISTER SECTION USER REGISTER SAVE AREA 

5. BOOT AND 8089 SECTION BOOTSTRAP AND 8089 DESCRIPTOR 


“J 
f k*k'k'k'k'k'k'k'k kk kk k He k ko k koko k k 


* UTILITY SECTION * 


* k'ik k'k'k'k ыу 


2 1 DECLARE 
INT$VECTOR(5) POINTER; /* INTERRUPT VECTORS */ 
3 1 DECLARE 
MONITORSSTACKPTR WORD, 
MONITORSSTACKBASE WORD; /* MONITOR SS SAVE */ 
4 1 DECLARE 
COPYRIGHT(*) BYTE DATA ('(C) 1978 INTEL CORP'); 
5 1 DECLARE 
BRK1$FLAG BYTE, /* TRUE IF BREAK SET */ 
BRK1$SAVE BYTE, /* INST BREAK SAVE */ 
CHAR BYTE, /* ONE CHAR LOOK AHEAD */ 
DISP(4) BYTE, /* DISPLAY ARRAY */ 
I BYTE, 
ENDSOFF WORD, /* END OFFSET ADDRESS */ 
WORD$MODE BYTE, 
LASTSCOMMAND BYTE; 
6 1 DECLARE 
TRUE LITERALLY 'OFFH', 
FALSE LITERALLY 'OOOH', 
ADDRSFIELD LITERALLY '1', /* ADDR FIELD WORD OUTPUT */ 
DATASFIELD LITERALLY '0', /* DATA FIELD WORD OUTPUT */ 
DATASBYTE LITERALLY '-1', /* DATA FIELD BYTE OUTPUT */ 
BLANK LITERALLY '1', 
NOBLANK LITERALLY '0', 
BREAKSINST LITERALLY 'OCCH!, /* BREAKPOINT TRAP */ 


STEPSTRAP LITERALLY '0100H', /* SS TRAP FLAG MASK */ 
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/*** 
* 
KKKK 


7 1 DECLARE 


8 1 DECLARE 


/*** 
* 
**** 


w^ ἡ DECLARE 
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USERSINITSSP LITERALLY '100H', /* USER STACK INITIAL */ 
GOSCOMMAND LITERALLY '2', /* GO COMMAND CODE */ 
SS$COMMAND LITERALLY '3'; 

e e k sk k fe je fe sk sk sk e eee eee je de He He e I He kok 


1/0 DECLARATIONS SECTION * 


Ae He he He he He Ae ыы He He ыы) 


KB$STAT$PORT LITERALLY 'OFFEAH', /* STATUS/COMMAND PORT */ 
KB$DATA$PORT LITERALLY 'OFFE8H!, /* DATA PORT */ 
ΚΒΦΙΝΙΤΦΜΟΡΕ LITERALLY 'OOH', /* 8 8-BIT, LEFT ENTRY, 
ENCODE, 2 KEY LOCKOUT */ 
KB$INIT$SCAN LITERALLY '39H', /* 10MS SCAN RATE  */ 
KBSINRDY LITERALLY '07H', /* IN CHAR RDY MASK */ 
KBSCMNDSPMT(*) BYTE DATA (40H,00H,00H,00H), /* '- die d 


KB$SIGNON(*) BYTE DATA (40H,00H,7FH,7DH), /* '- 86' */ 
KBSVERSION(*) BYTE DATA (00Н,00Н,86Н,06Н), /* ' 1.1: */ 
KBSREGSPMT(*) BYTE DATA (50H,00H,00H,00H), /* В ' */ 
KBSERRSMSG(*) BYTE DATA (40H,79H,50H,50H), /* '-ERR' */ 


KBSEXEC(*) BYTE DATA (79H,00H,00H,00H), /* 'E ' */ 
КВФВЕК1(%) BYTE DATA (7CH,50H,00H,00H), /* 'BR ' */ 
KBSBLANKS(*) BYTE DATA (00H,00H,00H,00H), /* ' М 
LED(*) BYTE DATA 
(3FH,06H,5BH,4FH,66H,6DH, 7DH, 07H, /* 01-17! */ 
7FH,6FH,77H,7CH, 39H, 5EH, 79H, 71H); /* !B'-'F! жу 
KBPER LITERALLY '10H', /* PERIOD */ 
KBCOM LITERALLY '11H', /* COMMA */ 
KBREGKEY LITERALLY  '15H!, /* REGISTER KEY — */ 
KBCOL LITERALLY '14Н', /* COLON (SEGMENT) */ 
KBPLUS LITERALLY '13H', /* PLUS KEY */ 
KBMINUS LITERALLY '12Η!; /* MINUS KEY */ 
kk fe de de de de ee e he de e e e e dee AX 


POINTER SECTION * 


ххх He He e He He He He He e e e f 


MEMORY$ARGI$PTR POINTER, /* ARGUMENT 1 */ 
ARG1 STRUCTURE (OFF WORD, SEG WORD) 
AT (@MEMORYSARGI$PTR), 
MEMORYSARGT BASED ΜΕΜΟΚΥΦΑΚΩΊΦΡΤΝ BYTE, 
MEMORYSWORDSARG1 BASED ΜΕΜΟΒΥΦΑΚΩΊΦΡΤΝ WORD, 


MEMORYSARGS$PTR POINTER, /* ARGUMENT 3 */ 
ARG3 STRUCTURE (OFF WORD, SEG WORD) 

АТ (@MEMORYSARG3S$PTR), 
MEMORYSARG3 BASED MEMORYSARGSSPTR BYTE, 


MEMORYSBRK1$PTR POINTER, /* BREAKPOINT "7 
BRK1 STRUCTURE (OFF WORD, SEG WORD) 

АТ (@MEMORYSBRK1$PTR), 
MEMORYSBRK1 BASED ΜΕΜΟΒΥΦΒΚΚΊΦΡΤΝ BYTE, 


MEMORYSCSIPSPTR POINTER, /* CS:IP INSTRUCTION */ 
CSIP STRUCTURE (OFF WORD, SEG WORD) 
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AT (ӘМЕМОКҮФСЅІРФРТК), 
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MEMORYSCSIP BASED MEMORYSCSIPSPTR BYTE, 


MEMORYSUSERSTACK$PTR POINTER, /* USER'S STACK */ 
USERSTACK STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEMORYSUSERSTACKSPTR), 
MEMORYSUSERSTACK BASED MEMORYSUSERSTACKSPTR WORD; 


ыы ыы e He He He He He He He He He e 


* REGISTER SECTION * 


кау k ek k e k k k kek kok oke f 


10 1 DECLARE 
KB$REG(*) BYTE DATA 


(OOH, 77H, OOH, 7CH, OOH, 39H, OOH, 5EH, /* AXBXCXDX — */ 
6DH, 73H, 7CH, 73H, 60Η, 30H, 5EH, 30H, /* SPBPSIDI  */ 
39H, 6DH, 5EH, 6DH, 6DH, 6DH, 79H, 60Η, /* CSDSSSES  */ 


30H, 73H, 71H,38H), 
КЕС%5АУ(14) WORD, 
REGSORD(*) BYTE DATA 


(£,6,1,3,2,0,9,11, 12,8; 


SP LITERALLY 
BP LITERALLY 
CS LITERALLY 
DS LITERALLY 
SS LITERALLY 
ES LITERALLY 
IP LITERALLY 
FL LITERALLY 


/* IPFL */ 
/* USER'S SAVED REGS */ 


13), /* STACKED REG ORDER */ 
'REGSSAV( 4)', 
'REGSSAV( 5)”, 
'REGSSAV( 8)', 
'REGSSAV( 9)', 
' REGSSAV( 10)! , 
'REGSSAV(11)', 
'REGSSAV(12)!, 
' REGSSAV(12)'; 


ыы e He He He He He He He He He He He e He He He He He e ыы 


* BOOTSTRAP JUMP AND 8089 VECTOR  * 


He He He He k k dede dese desee dede kekok kekok He He kok o ko koko e koko ko koko f 


/* THIS BOOT CONSISTS OF A LONG JUMP TO THE BEGINNING OF THE MONITOR 
AT FF00+XXXX WHERE XXXX IS THE STARTING ADDRESS OFFSET (IP) AND 
MUST BE DETERMINED AFTER EACH COMPILE. */ 


11 1 DECLARE 


STARTSADDR LITERALLY 'O09CH', /* STARTING ADDRESS */ 
BOOT1(*) BYTE AT (OFFFFOH) DATA (OEAH), /* LONG JUMP OPCODE */ 
BOOT2(*) WORD AT (OFFFF1H) DATA (STARTSADDR), 

В0073(%) WORD AT (OFFFF3H) DATA (ОҒҒООН); /* SEGMENT ADDRESS */ 


/* THIS TWO-WORD DATA IS A JUMP TO THE STARTING ADDRESS AND IS LOCATED 
AT THE FIRST LOCATION OF ROM (NO OTHER DATA OR CONSTANT DECLARATIONS 
MAY PRECEDE IT). THE JUMP IS ACTUALLY TO (START-ADDR)-4 SINCE THE 
INSTRUCTION IS A RELATIVE JUMP OF LENGTH 3. */ 


12 1 DECLARE 


BOOT4(*) WORD DATA (OE990H,STARTSADDR-4); /% NOP,JMP START-ADDR */ 


/* THIS BLOCK OF ROM AT FFFF6-FFFFA IS INITIALIZED FOR THE 8089 
DEVICE AND POINTS TO A BLOCK OF RAM AT LOCATION 100H. */ 


15 1 DECLARE 


BLOCK$8089 WORD AT (OFFFF6H) DATA (00001H), 
BLOCK$8089$PTR POINTER AT (OFFFF8H) DATA (00100H); 


«t 
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COMMON PROCEDURES 


THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHER 
LEVEL ROUTINES. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 
1. BASIC 1/0 SECTION 
KB$DISPLAY DISPLAY TO LED FIELDS 
KBSBLANKSDATASFIELD BLANK DATA FIELD WITH PROMPTS 
KB$BLANKSADDR$F I ELD BLANK ADDRESS FIELD WITH PROMPTS 


KBSOUTSBYTE OUTPUT A BYTE TO DISPLAY 
KB$OUT $WORD OUTPUT A WORD TO DISPLAY 
KB$GET$CHAR INPUT A CHAR FROM KEYPAD 

2. ARGUMENT EXPRESSION EVALUATOR 
KB$GET$EXPR GET WORD EXPRESSION 
KB$GET$ADDR GET ADDRESS EXPRESSION 
KB$UPDATE$IP GET OPTIONAL CS:IP 

3. INTERRRUPT AND RESTORE/EXECUTE ROUTINES 
SAVE$REGISTERS SAVES USERS REGISTERS 
RESTORESEXECUTE RESTORE MACHINE STATE AND EXEC 
INTERRUPRTSENTRY INTERRUPT FOR SINGLE STEP 
INI TERRUPT3SENTRY INTERRUPT ROUTINE FOR GO 
INITSINTSVECTOR INITIALIZES INTERRRUPT VECTORS 


"f 
f k'k'k';'k'k'k'k'k'k k k k ΑΛΛΑ kekok kok k 


* BASIC I/O SECTION * 


He he e He He He Ae k e e kok ko k ΑΛΛΑΧ ΑΛΑ ΑΧ / 


14 1 KB$DISPLAY: 
; STATEMENT # 14 
/* THIS ROUTINE DISPLAYS THE CONTENTS OF THE ARRAY POINTED TO BY 
THE FIRST PARM TO THE FIELD SPECIFIED BY THE SECOND (ADDR OR 
DATA). THE NUMBER OF DECIMAL POINTS OR PROMPTS IS DETERMINED 
BY THE THIRD PARAMETER */ 


KBDISPLAY PROC NEAR 

0251 55 PUSH ВР 

0252 8ВЕС MOV BP, SP 

PROCEDURE (PTR, FIELD,PROMPTS); 
15 2 DECLARE PTR POINTER, (FIELD,PROMPTS,T) BYTE, 
DISPLAY BASED PTR (1) BYTE; 
16 2 IF FIELD-ADDRSFIELD THEN 
; STATEMENT # 16 

0254 807Е0601 CMP [BP] .FIELD, 1H 

0258 7507 JNZ ai 
17 2 OUTPUT(KBSSTATSPORT) = 94H; /* ADDRESS FIELD */ 


; STATEMENT # 17 
025A BAEAFF MOV DX,OFFEAH 
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18 


19 


20 


21 


23 


24 


25 


26 


0250 B094 MOV AL ,94Н 
025F ЕВ05 JMP 9103 
91: 
ELSE 
OUTPUT(KBS$STATSPORT) = 90H; /* DATA FIELD */ 
; STATEMENT # 18 
0261 BAEAFF MOV DX, OF FEAH 
0264 B090 MOV AL , 90H 
9103: 
0266 EE OUT DX 
DO 1-0 TO 3; 


; STATEMENT # 19 
0267 С6065Ғ0000 MOY 1,0H 
982: 


026C 803E5F0003 CMP 1,3H 
0271 7730 JA 983 
T = DISPLAY(3-1); /* DISPLAY BACKWARDS! */ 
; STATEMENT # 20 
0273 B003 MOV AL, 5H 
0275 2A065F00 SUB AL, I 
0279 B400 MOV AH, OH 
0278 89C6 NOV SI, ΑΧ 
0270 С45Е08 LES BX, [BP] .PTR 
0280  268A08 MOV CL,ES: [BX] .DISPLAY [51] 
0283 880Е6200 MOV T,CL 


IF PROMPTS>I THEN Т = T OR 80H; 
; STATEMENT # 21 


0287 8A4604 MOV AL, [BP] .PROMPTS 
028A 3A065F00 CMP AL, I 
028E 7605 JBE a3 
; STATEMENT # 22 
0290 800Е620080 OR T, 80H 
93: 


OUTPUT (KB$DATA$PORT) = T; 
; STATEMENT # 23 


0295 ВАЕВҒҒ MOV DX, OFFEB8H 
0298  A06200 MOV AL,T 
029B EE OUT DX 
END; 
; STATEMENT # 24 
029C 80065F0001 ADD 1, 1Η 
02A1 7505 JNZ 982 
983: 
END; 
; STATEMENT # 25 
0243 50 POP BP 
02A4  C20800 RET 8H 
KBDISPLAY ENDP 
KBSBLANKSDATASFIELD: 


; STATEMENT # 26 
/* THIS ROUTINE BLANKS THE DATA FIELD OF THE DISPLAY WITH THE 
NUMBER OF PROMPTS (DECIMAL POINTS) AS SPECIFIED BY THE PARAMETER. */ 


KBBLANKDATAFIELD PROC NEAR 
02A7 55 PUSH BP 
02A8 8BEC MOV BP, SP 


PROCEDURE (PROMPTS); 
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27 2 DECLARE PROMPTS BYTE; 
28 2 CALL KBSDISPLAY(@KBS$BLANKS, DATASFIELD, PROMPTS); 
; STATEMENT # 28 
02AA 2Е80063700 LEA AX, CS:KBBLANKS 
O2AF ОЕ PUSH CS ; 1 
0280 50 PUSH AX ; 2 
0281 B000 моу AL, OH 
0283 50 PUSH AX ; 3 
0284 FF7604 PUSH [ВР] .PROMPTS; 4 
0287 E897FF CALL  KBDISPLAY 
29 2 END; 
; STATEMENT # 29 
02BA 5D POP BP 
0288 С20200 ВЕТ 2H 
KBBLANKDATAFIELD ENDP 
30 1 KBSBLANKSADDRSF IELD: 


; STATEMENT # 30 
/* THIS PROCEDURE BLANKS THE ADDRESS FIELD OF THE DISPALY WITH THE 
NUMBER OF PROMPTS SPECIFIED BY THE PARAMETER 'PROMPTS'. */ 


KBBLANKADDRF IELD PROC NEAR 
02ВЕ 55 PUSH ВР 
O2BF 8ВЕС MOV BP, SP 
PROCEDURE (PROMPTS); 
34 2 DECLARE PROMPTS BYTE; 
32 2 CALL KB$DISPLAY(@KBS$BLANKS, ADDR$F IELD , PROMPTS); 
; STATEMENT # 32 
02C1 2E8D063700 LEA AX, CS:KBBLANKS 
02C6 ОЕ PUSH CS ; 1 
0207 50 PUSH AX ; 2 
02c8 В001 MOV AL, 1H 
02СА 50 PUSH AX ; 3 
0208 FF7604 PUSH [BP].PROMPTS; 4 
O2CE Ε880ΕΕ CALL КВОІЅРІАҮ 
33 2 END; 
; STATEMENT # 33 
0201 50 РОР ВР 
0202 С20200 RET 2H 
KBBLANKADDRFIELD ENDP 
34 1 KBSOUTSBYTE: 


; STATEMENT # 34 
/* THIS ROUTINE OUTPUTS THE BYTE INPUT FROM THE FIRST PARAMETER 
TO THE DATA FIELD WITH THE NUMBER OF PROMPTS SPECIFIED BY THE 
SECOND PARAMETER. */ 


KBOUTBYTE PROC NEAR 
0205 55 PUSH BP 
0206 8ВЕС MOV BP,SP 
PROCEDURE (B , PROMPTS); 
35 2 DECLARE (B,PROMPTS) BYTE; 
36 2 DISP(0),DISP(1) = 0; /* FIRST TWO BLANK */ 
; STATEMENT # 36 
0208 B000 MOV AL, OH 
02DA A25B00 MOV DISP,AL 
0200 А25С00 MOV DISP+1H,AL 
37 2 DISP(2) = LED(SHR(B,4) AND OFH); 


; STATEMENT # 37 
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02Е0 8А5Е06 MOV BL, [ΒΡ] .B 
O2E3 8104 MOV CL,4H 
02Е5 D2EB SHR BL,CL 
02Е7 80E30F AND BL,OFH 
O2EA B700 MOV BH, OH 
O2EC 2E8A4F3B MOV CL,CS:LED [BX] 
02Ғ0 880Е5000 МОУ DISP+2H,CL 
38 2 DISP(3) = LED(B AND OFH); 
: STATEMENT # 38 
O2F4 8A5E06 MOV BL, [BP] .B 
02F7 80ЕЗОҒ AND BL ,OFH 
02ἑΑ B700 MOV BH, OH 
O2FC 2E8A4F3B MOV CL,CS:LED [BX] 
0300 880Е5Е00 MOV DISP*3H,CL 
39 2 CALL KBSDISPLAY(@DISP,DATASFIELD, PROMPTS); 
; STATEMENT # 39 
0304  8DOE5BOO LEA CX,DISP 
0308 ЛЕ PUSH DS & 4 
0309 51 PUSH CX > ë 
030A 50 PUSH AX Es 
0308 FF7604 PUSH [BP] .PROMPTS; 4 
030E E840FF CALL KBDISPLAY 
40 2 END; 
; STATEMENT # 40 
0311 5D POP BP 
0312 С20400 RET 4H 
KBOUTBYTE ENDP 
41 1 KBSOUTSWORD : 
; STATEMENT # 41 
/* THIS ROUTINE OUTPUTS THE FIRST PARM TO THE FIELD SPECIFIED 
BY THE SECOND WITH THE NUMBER OF PROMPTS SPECIFIED BY THE THIRD. 
LEADING ZERO BLANKING IS PERFORMED IF SPECIFIED BY THE FOURTH 
PARAMETER. */ 
KBOUTWORD PROC NEAR 
0315 55 PUSH BP 
0316 8BEC MOV BP,SP 
PROCEDURE (W, FIELD, PROMPTS, BLANKING); 
42 2 DECLARE W WORD, (FIELD,PROMPTS,BLANKING) BYTE; 
43 2 DO 1-0 TO 3; 
; STATEMENT # 43 
0318 C6065F0000 MOV 1,0H 
984 : 
0310 803E5F0003 CMP 1,3H 
0322 7729 JA 985 
46 3 DISP(I) = LEDCSHR(W, (3-1) *4) АМО 000FH); 
; STATEMENT # 44 
0324 B003 MOV AL,3H 
0326 2A065F00 SUB AL, I 
032A B104 MOV CL,4H 
032ς F6E1 MUL CL 
032E 89С1 MOV CX , AX 
0330 8B5E0A MOV BX, [BP] .W 
0333 D3EB SHR BX, CL 
0335 81E30F00 AND BX, OFH 
0339 2E8A473B MOV AL,CS:LED [BX] 
0330 8A1E5F00 MOV BL,I 
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46 


47 
48 


49 


50 


21 


52 


53 
54 


55 


(4 ο 


0341 
0343 


0346 
034B 


034D 
0351 


0353 


0358 
035C 
035E 
0362 
0364 
0366 
0367 
0368 
0368 
0360 
036Ε 
0370 
0371 
0373 
0375 


0377 
0378 
037D 


0381 


0386 


0388 
038c 
038D 
038E 
0391 
0394 


0397 
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B700 MOV ΒΗ, OH 
88475B MOV DISP [BX] , AL 
END; 
; STATEMENT 
80065F0001 ADD І,ІН 
7500 JNZ 984 
985: 
IF BLANKING-BLANK THEN 
; STATEMENT 
807E0401 CMP [BP] . BLANKING, 1H 
7535 JNZ a4 
DO; 
I = 0; 
; STATEMENT 
C6065F0000 MOV I,0H 
DO WHILE DISP(I)ZSFH AND I<3; 
; STATEMENT 
986: 
8A1E5F00 MOV BL, I 
B700 MOV BH,OH 
807F5B3F СМР DISP [BX] , ЗЕН 
BOFF MOV AL , OFFH 
7401 JZ $+3H 
40 INC AX 
50 PUSH AX at 
80FB03 CMP BL,3H 
BOFF MOV AL, OFFH 
7201 JB $+3H 
40 INC AX 
59 POP CX 8:77 
22C1 AND AL,CL 
0008 RCR AL, 1 
7311 JNB a4 
DISP(I) = 0; 
; STATEMENT 
ВА1Е5Ғ00 МОУ BL,I 
B700 MOV BH,OH 
C6475B00 MOV DISP [BX] , OH 
I = I + 1; 
; STATEMENT 
80065F0001 ADD I, 1Η 
END; 
; STATEMENT 
EBDO JMP 986 
END; 
9: 
CALL KB$DISPLAY(aDISP,FIELD, PROMPTS); 
; STATEMENT 
8D065B00 LEA AX ,DISP 
1E PUSH DS 2: 
50 PUSH AX x 
FF7608 PUSH [BP].FIELD; 3 
FF7606 PUSH [BP] .PROMPTS; ὁ 
E8BAFE CALL KBDISPLAY 
END; 
; STATEMENT 
5D POP BP 
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# 45 


/* BLANK LEADING O'S */ 


# 46 


# 48 


# 49 


# 50 


# 51 


# 52 


# 54 


# 55 
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0398 C20800 RET 8H 
KBOUTWORD ENDP 


56 1 KBSGETSCHAR: 
; STATEMENT # 56 
/* READS ONE CHARACTER FROM THE FIFO OF THE 8279. WAITS UNTIL 
CHARACTER IS AVAILABLE AND THEN RETURNS THE CHARACTER IN GLOBAL 
VARIABLE 'CHAR'. */ 


KBGETCHAR PROC NEAR 
039B 55 PUSH BP 
039C 8ВЕС MOV BP, SP 
PROCEDURE ; 
57 2 DO WHILE (INPUT(KB$STAT$PORT) AND KB$INRDY)=0; END; 
; STATEMENT # 57 
988: 
039Е BAEAFF MOV DX,OFFEAH 
03A1 EC IN DX 
03A2 A807 TEST AL , 7H 
03A4  74F8 JZ 988 
59 2 OUTPUT(KBSSTATSPORT) = 040H; /* ENABLE INPUT DATA */ 
; STATEMENT # 59 
03A6 BAEAFF MOV DX, OFFEAH 
03A9 B040 MOV AL , 40H 
03AB EE OUT DX 
60 2 CHAR = ІМРИТ(КВФОАТАФРОКТ); /* READ CHARACTER */ 
> STATEMENT # 60 
O3AC ВАЕВҒҒ MOV DX, OF FE8H 
O3AF EC IN DX 
0380 A25A00 MOV CHAR,AL 
61 2 END; 
; STATEMENT # 61 
03B3 5D POP BP 
03B4 C3 RET 
KBGETCHAR ENDP 


/ *'k'k'ik'k'k kekok kok kok kok kok k ok o kok o He e He e k k ke Ae He Ae ko koko ek koko kok 


* ARGUMENT EXPRESSION EVALUATOR SECTION * 


Se Ae Ae Fe he e Fe Fe Fe Fe He He He Pe He Ae He He He He Fe He He Ae e He Fe He He He He He Se Αν f 


62 1 KBSGETSEXPR: 
; STATEMENT # 62 
/* THIS ROUTINE GATHERS CHARACTERS FROM THE INPUT STREAM 
AND FORMS A WORD EXPRESSION WHICH IS RETURNED AS THE VALUE 
OF THE PROCEDURE. THE CHARACTERS INPUT ARE ECHOED TO THE 
ADDRESS OR DATA FIELD AS SPECIFIED BY THE FIRST PARAMETER. 
IF THE FIRST PARM IS 0 (ADDR) OR 1 (DATA) THEN THE EXPRESSION IS 
OUTPUT AS A WORD AND IF -1 (DATASBYTE) THEN AS A BYTE ALWAYS IN 
DATA FIELD. THE NUMBER OF PROMPTS BY THE SECOND PARM, AND LEADING 
ZERO BLANKING BY THE THIRD. EXPRESSION ARE TERMINATED WITH 
A COMMA,PERIOD OR COLON. 'CHAR' WILL CONTAIN ONE OF THESE 


ON EXIT. */ 
KBGETEXPR PROC NEAR 
03B5 55 PUSH BP 
0386 8BEC MOV BP,SP 


PROCEDURE (FIELD,PROMPTS,BLANKING) WORD; 
65 2 DECLARE (FIELD,PROMPTS,BLANKING) BYTE, 
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65 


70 


71 


74 


76 


0388 


0580 


0363 
0368 


ОЗСА 
OSCF 
03D0 
03D1 
0304 
0307 


030Α 


0300 
03Е2 
03Е4 


03Ε7 
03Ε8 
03Ε0 
03ΕΕ 
0ЗЕ2 


03Е5 
O3F9 


O3FB 
OSFE 
OSFF 
0402 
0405 


0407 
040B 
040E 
0411 
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(SAVE,W) WORD, OPER BYTE; 
OPER = KBPLUS; 


; STATEMENT # 64 


C606630013 MOV OPER, 13H 
W= 0; 
; STATEMENT # 65 
C7064C000000 MOV W, 0Η 
DO WHILE TRUE; 
; STATEMENT # 66 
990: 
IF CHAR=KBREGKEY THEN 
; STATEMENT # 67 
803E5A0015 CMP CHAR, 15H 
7560 JNZ 95 
DO; /* REGISTER NAME */ 
CALL KB$DISPLAY (SKBS$REGSPMT , F IELD, PROMPTS); 
; STATEMENT # 69 
2E8D062700 LEA AX , CS: KBREGPMT 
OE PUSH US ΗΝ. 
50 PUSH AX .ὁ 
FF7608 PUSH [BP].FIELD; 3 
FF7606 PUSH [BP] .PROMPTS; 4 
E877FE CALL KBDISPLAY 
CALL KBSGETSCHAR; 
; STATEMENT # 70 
E8BEFF CALL KBGETCHAR 
IF CHAR>ODH THEN GOTO ERROR; /* INVALID REG KEY */ 
; STATEMENT # 71 
803E5A000D CMP CHAR , ODH 
7603 JBE $+5H 
E9D5FD JMP ERROR 
SAVE = REG$SAV(CHAR); 
; STATEMENT # 73 
8A1E5A00 MOV BL,CHAR 
B700 MOV BH,OH 
D1E3 SHL BX, 1 
8B472E MOV AX , REGSAV [BX] 
A34A00 MOV SAVE , AX 
IF FIELD=DATASBYTE THEN 
; STATEMENT # 74 
807E08FF CMP [BP] .FIELD,OFFH 
750C JNZ a7 
CALL KB$OUTS$BYTE(LOW(SAVE) , PROMPTS); 
; STATEMENT # 75 
A14A00 MOV AX,SAVE 
50 PUSH AX ; 1 
FF7606 PUSH [BP] .PROMPTS; 2 
E8DOFE CALL KBOUTBYTE 
EB10 JMP 98 
97: 
ELSE 
CALL KB$OUTS$WORD (SAVE, FIELD, PROMPTS,BLANKING); 
. 4 STATEMENT # 76 
FF364A00 PUSH SAVE 1 
FF7608 PUSH [BP] .FIELD; 2 
FF 7606 PUSH [BP] .PROMPTS; 3 
FF7604 PUSH [BP] .BLANKING; 4 
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0414 ΕδΕΕΕΕ CALL KBOUTWORD 
98: 
77 4 CALL ΚΒΦΩΕΤΦΟΗΑΝ; 
; STATEMENT # 77 
0417 EB881FF CALL KBGETCHAR 
78 4 END; 
; STATEMENT # 78 
96: 
041A 803Е630013 CMP OPER , 13H 
041F 7559 JNZ 913 
0421 A14A00 MOV AX, SAVE 
0424 01064С00 ADD W, ΑΧ 
0428 EB57 JMP 914 
85: 
ELSE 
79 3 DO; /* NUMBER */ 
80 4 IF CHAR>OFH THEN GOTO ERROR; /* INVALID DIGIT */ 
; STATEMENT # 80 
042A 803E5A000F CMP CHAR, OFH 
042Ғ 7603 JBE $+5H 
0431 E988FD JMP ERROR 
82 4 SAVE = 0; 


; STATEMENT # 82 
0434  C7064A000000 MOV SAVE , OH 


85 4 DO WHILE CHAR«sOFH; 
; STATEMENT # 83 
992: 
043A 803E5A000F CMP CHAR , OFH 
O43F 7709 | JA 96 
84 5 SAVE = SHL(SAVE,4) + DOUBLE(CHAR); 
; STATEMENT # 84 
0441 A14A00 MOV AX, SAVE 
0444 В104 MOV CL,4H 
0446 D3E0 SHL AX, CL 
0448 8АО0Е5А00 MOV CL,CHAR 
044C B500 MOV CH, OH 
044E 03C1 ADD AX ,CX 
0450 A34A00 MOV SAVE , AX 
85 5 IF ΕΙΕΙΡΞΟΑΤΑΦΒΥΤΕ THEN 
; STATEMENT # 85 
0453 807Е08ҒҒ CMP [BP] .FIELD,OFFH 
0457 750С JNZ 911 
86 5 CALL KB$OUTSBYTE(LOW(SAVE) , PROMPTS); 
; STATEMENT # 86 
0459 A14A00 MOV ΑΧ, SAVE 
045C 50 PUSH AX $1 
045D FF7606 PUSH [BP] .PROMPTS; 2 
0460 E872FE CALL KBOUTBYTE 
0463 EB10 JMP 912 
911: 
ELSE 
87 5 CALL KBSOUTSWORD(SAVE, FIELD, PROMPTS, BLANKING); 
: STATEMENT # 87 
0465 FF364A00 PUSH SAVE . Ἴ 
0469 FF7608 PUSH (ЕРІ .FIELD; 2 
046C FF7606 PUSH [BP] .PROMPTS; 3 


046F FF7604 PUSH [BP] .BLANKING; 4 
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0472 


0475 


0478 


o 
M 
WNW ο 


95 3 


047A 
047D 


94 3 


0481 
0485 
95 3 


0487 
048A 
048B 
048E 
0491 


96 3 


0493 
0497 
049A 
049D 
04A0 


97 3 


04A3 
04A6 
04A8 
O4AA 
04АС 
04А0 
O4AE 
0483 
0485 
0487 
0488 
04B9 
0488 
0486 
04C1 
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ЕВАОҒЕ CALL KBOUTWORD 
912: 
CALL ΚΒΦΩΕΤΦΟΗΑΝ; 
; STATEMENT # 88 
E823FF CALL KBGETCHAR 
END; 
; STATEMENT # 89 
EBCO JMP 992 
END; 
IF OPER=KBPLUS THEN 
W = W + SAVE; 
; STATEMENT # 92 
913: 
ELSE 
М = М - SAVE; 
; STATEMENT # 93 
A14A00 MOV AX,SAVE 
29064С00 SUB W, ΑΧ 
914: 
IF FIELD=DATASBYTE THEN 
; STATEMENT # 94 
807E08F F СМР [BP] .FIELD,OFFH 
750C JNZ 915 
CALL KB$OUTS$BYTE(LOW(W) , PROMPTS); 
; STATEMENT # 95 
А14С00 MOV AX,W 
50 PUSH AX ; 1 
FF7606 PUSH [BP] .PROMPTS; 2 
E844FE CALL KBOUTBYTE 
EB10 JMP 916 
915: 
ELSE 


CALL KBSOUTSWORD(W, FIELD, PROMPTS,BLANKING); 


FF364C00 PUSH 
FF7608 PUSH 
FF 7606 PUSH 
FF7604 PUSH 
E872FE CALL 
916: 
IF CHAR=KBCOM OR 

A05A00 MOV 
3C11 CMP 
BOFF MOV 
7401 JZ 

40 INC 
50 PUSH 
803E5A0010 CMP 
BOFF MOV 
7401 JZ 

40 INC 
59 POP 
OAC1 OR 

50 PUSH 
803E5A0014 СМР 
BOFF MOV 


; STATEMENT # 96 
W τς ἢ 
[BP].FIELD; 2 
[ΒΡ] .PROMPTS; 3 
[BP] .BLANKING; 4 
KBOUTWORD 


CHAR=KBPER OR CHAR=KBCOL THEN 
: STATEMENT # 97 

AL, CHAR 

AL,11H 

AL, ОРЕН 

$+3H 


AX a 
CHAR, 10H 
AL,OFFH 
$+3H 


AX η 
CHAR, 14H 
AL ‚ОРЕН 


13 


/* EVAL PREV OPER */ 
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98 


100 


101 
102 
103 


104 


105 
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O4C3 7401 JZ $+3H 
0455 40 INC AX 
0406 59 POP CX 2 Ἴ 
04С7 OAC1 OR AL ,CL 
04С9 0008 ЕСК А(,1 
O4CB 7305 JNB 917 
RETURN W; 
; STATEMENT # 98 
O4CD А14С00 MOV АХ,М 
0400 ЕВ2В JMP a2 
917: 


IF CHAR-KBPLUS OR CHAR-KBMINUS THEN 


; STATEMENT # 99 


0402 803Е5А0013 CMP CHAR, 13H 
04D7 BOFF MOV AL , OFFH 
0409 7401 JZ $+3H 
04DB 40 INC AX 
O4DC 50 PUSH AX 2 
0400 805Е5А0012 СМР CHAR , 12H 
04Е2 BOFF MOV AL, OFFH 
04E4 7401 JZ $+3H 
04E6 40 INC AX 
04Е7 59 POP CX ; 1 
04Е8 ОАС1 OR AL,CL 
O4EA 0008 RCR AL,1 
04ЕС 7203 JB $+5H 
O4EE Е9СВҒС JMP ERROR 
OPER = CHAR; 
; STATEMENT # 100 
O4F1 А05А00 MOV AL , CHAR 
O4F4 A26300 MOV OPER,AL 
ELSE 
GOTO ERROR; 
CALL KBSGETSCHAR; /* GET NEXT CHAR */ 
; STATEMENT # 102 
O4F7 EB8ATFE CALL KBGETCHAR 
END; 
; STATEMENT # 103 
O4FA Е9С6ҒЕ JMP 990 
991: 
END; 
; STATEMENT # 104 
a2: 
O4FD 5D POP BP 
O4FE С20600 RET 6H 
KBGETEXPR ENDP 
KBSGETSADDR: 


; STATEMENT # 105 


/* THIS ROUTINE GATHERS CHARACTERS FROM THE INPUT STREAM AND 
FORMS AN ADDRESS EXPRESSION OF SEGMENT PART AND OFFSET PART. 


0501 


THE FIRST CHARACTER HAS ALREADY BEEN READ INTO GLOBAL 'CHAR'. 
IF NO SEGMENT IS ENTERED, THE SECOMD PARM DEFAULT IS USED, THE 
ADDRESS EXPRESSION IS DISPLAYED IN THE ADDRESS FIELD WITH THE 
NUMBER OF PROMPTS SPECIFIED BY THE THIRD PARM. */ 
KBGETADDR PROC NEAR 
55 PUSH BP 
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0502 8ВЕС MOV BP,SP 
PROCEDURE (PTR, DEFAULTSBASE , PROMPTS); 
106 2 DECLARE PTR POINTER, DEFAULTSBASE WORD, PROMPTS BYTE, 
ARG BASED PTR STRUCTURE (OFF WORD, SEG WORD); 
107 2 ARG.SEG = DEFAULTSBASE; 
; STATEMENT # 107 
0504 884606 MOV AX, [BP] .DEFAULTBASE 
0507 С45Е08 LES BX, [BP] .PTR 
050A 26894702 MOV ES: ARG[BX*2H] , AX 
108 2 ARG.OFF = KB$GETS$EXPR(CADDR$F IELD , PROMPTS, BLANK); 
; STATEMENT # 108 
050Е ΒΟΟΊ MOV AL , 1H 
0510 50 PUSH AX κα 
0511 FF7604 PUSH [BP] .PROMPTS; 2 
0514 50 PUSH AX . 9 
0515 ΕδΟΡΕΕ CALL KBGETEXPR 
0518 С45Е08 LES BX, [BP] .PTR 
051B 268907 MOV ES:ARG [BX] , AX 
109 2 IF CHAR=KBCOL THEN /* SEGMENT SPEC'D */ 
: STATEMENT # 109 
051E 803E5A0014 CMP CHAR, 14H 
0525 7527 JNZ 920 
110 2 DO; 
111 3 CALL KBSGETSCHAR; 
; STATEMENT # 111 
0525 E873FE CALL KBGETCHAR 
112 3 ARG.SEG = ARG.OFF; 
; STATEMENT # 112 
0528 С45Е08 LES BX, [BP] .PTR 
052B 268807 MOV AX, ES:ARG [BX] 
052E 26894702 MOV ES:ARG [BX+2H] , AX 
145 3 ARG.OFF = KB$GETSEXPR(CADDRS$F ТЕГО, PROMPTS, BLANK); 
; STATEMENT # 113 
0532 ΒΟΟΊ MOV AL, 1H 
0534 50 PUSH AX zd 
0535 FF7604 PUSH [BP] .PROMPTS; 2 
0538 50 PUSH AX . 3 
0539 E879FE CALL KBGETEXPR 
053C С45Е08 LES BX, [BP] .PTR 
053F 268907 MOV ES:ARG [BX] , AX 
114 3 IF CHAR=KBCOL THEN GOTO ERROR; 
; STATEMENT # 114 
0542 803E5A0014 CMP CHAR , 14H 
0547 7503 JNZ $+5H 
0549 E970FC JMP ERROR 
; STATEMENT # 115 
116 3 END; 
920: 
117 2 END; 
; STATEMENT # 117 
054C 5D POP BP 
0540 C20800 RET 8H 
KBGETADDR ENDP 
118 1 KBSUPDATESIP: 


; STATEMENT # 118 
/* THIS ROUTINE IS CALLED BY SINGLE STEP AND GO TO OUTPUT THE CURRENT 
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119 


120 


121 


122 


123 


124 


0550 
0551 


0553 
0557 
0559 
055A 
055B 
055C 


055F 
0562 


0565 
0568 


056B 
056F 
0572 
0574 
0575 


0578 


057B 
0580 
0582 
0584 
0585 
0586 
058B 
058D 
058F 
0590 
0591 
0593 
0595 


0597 
0599 
059A 


059D 
059F 
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CS:IP AND THE CURRENT INSTRUCTION BYTE. 


OPTIONAL INPUT. */ 


PROC NEAR 
BP 
BP, SP 


ADDR$FIELD, 1, BLANK); 
; STATEMENT # 119 

REGSAV+18H; 1 

AL, 1H 


e 
2 
4 


; STATEMENT # 120 
AX, REGSAV+18H 
CSIP, AX 


; STATEMENT # 121 
ΑΧ, REGSAV** 10H 
CSIP*2H,AX 


; STATEMENT # 122 
BX,MEMORYCSIPPTR 
ES:MEMORYCSIP [BX] 

AL , OH 
AX ДЕ 
KBOUTBYTE 


; STATEMENT # 123 
KBGETCHAR 


IF CHAR<>KBCOM AND CHAR<>KBPER THEN 


; STATEMENT # 124 
CHAR, 11H 
AL, ОРЕН 
$+3H 
AX 
AX : 1 
CHAR , 10H 


/* CHANGE CS:IP */ 


; STATEMENT # 126 


AL, 1H 
AX + 
KBBLANKADDRFIELD 


; STATEMENT # 127 
AL, OH 


KBUPDATEIP 
55 PUSH 
8BEC MOV 
PROCEDURE ; 

CALL KBSOUTSWORD(IP, 
FF364600 PUSH 
B001 MOV 
50 PUSH 
50 PUSH 
50 PUSH 
E8BÓFD CALL 

CSIP.OFF = IP; 
A14600 MOV 
A32600 MOV 

CSIP.SEG = CS; 
A13E00 MOV 
A32800 MOV 

CALL KBSOUTSBYTE(MEMORYSCSIP,0); 
C41E2600 LES 
26FF37 PUSH 
Β000 μον 
50 PUSH 
E85DFD CALL 

CALL КВФСЕТФСНАВ; 
E820FE CALL 
803E5A0011 CMP 
BOFF MOV 
7501 JNZ 
40 INC 
50 PUSH 
803E5A0010 CMP 
BOFF MOV 
7501 JNZ 
40 INC 
59 POP 
22C1 AND 
0008 RCR 
7516 JNB 

DO; 

CALL KBS$BLANKSADDRSFIELD(1); 
B001 MOV 
50 PUSH 
E821FD CALL 

CALL KBS$BLANKSDATASFIELD(0); 
B000 MOV 
50 PUSH 


AX : 7 


PAGE 


16 


CS:IP IS OPENED FOR 


/* DISPLAY IP */ 


t 
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0540 E804FD CALL KBBLANKDATAFIELD 
128 3 CALL KBSGETSADDR(@CSIP,CS, 1); 
; STATEMENT # 128 
05A3 80062600 LEA AX,CSIP 
05A7 1E PUSH DS ; 1 
05A8 50 PUSH AX 4.2 
05А9 FF363E00 PUSH REGSAV+10H; 3 
05AD B001 MOV AL, 1H 
05ΑΕ 50 PUSH AX 2 4 
0580 E84EFF CALL KBGETADDR 
129 3 END; 
922: 
130 2 END; 
; STATEMENT # 130 
05B3 5D POP BP 
05B4 C3 RET 
KBUPDATEIP ENDP 


/ 4 κ αὶ αὶ αὶ αὶ κ αὶ He He He He Fe He He e He He He e He He He e Fe He He Ae He κα κ He e He He e He He Ae He He Te He 


* INTERRUPT AND RESTORE/EXECUTE SECTION  * 


Ae k ek k e He He He He He He e k He k He kk kok k sk ko ΑΛΛΑΧ k k kok koko koko He He e ΛΑ ΧΑ f 


13 1 SAVE$REGISTERS: 
; STATEMENT # 131 
/* THIS ROUTINE IS USED TO SAVE THE STACKED USER'S REGISTERS IN THE 
MONITOR'S SAVE AREA. */ 


SAVEREGISTERS PROC NEAR 
05B5 55 PUSH BP 
05B6 8ВЕС MOV BP,SP 
PROCEDURE ; 
132 e BP = MEMORYSUSERSTACK; 

; STATEMENT # 132 
05B8 С41Е2А00 LES BX ,MEMORYUSERSTACKPTR 
05ВС 2068807 MOV AX , ES: MEMORYUSERSTACK [BX] 
05BF А33800 MOV REGSAV*OAH , AX 

133 2 USERSTACK.OFF = USERSTACK.OFF + 4; 

; STATEMENT # 133 

05C2 83062A0004 ADD USERSTACK , 4H 
134 2 DO 1=0 TO 10; /* POP REGISTERS OFF OF STACK */ 
; STATEMENT # 134 
05C7 С6065Ғ0000 MOV I ,0H 
994: 
05СС 803Е5Ғ000А СМР I, OAH 
0501 7724 JA 995 
135 3 REG$SAV(REGS$ORD(I)) = MEMORYSUSERSTACK ; 

; STATEMENT # 135 
0503 8А1Е5Ғ00 MOV BL,I 
0507 8700 MOV BH, OH 
0509 2E8A5F67 MOV BL,CS:REGORD [BX] 

0500 B700 MOV BH,OH 
OSDF DI1E3 SHL BX, 1 
05Е1 C4362A00 LES SI ,MEMORYUSERSTACKPTR 
05E5 268804 MOV AX, ES: MEMORYUSERSTACK [SI] 
05E8 89472E MOV REGSAV [BX] , AX 

136 3 USERSTACK.OFF = USERSTACK.OFF + 2; 


; STATEMENT # 136 
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138 


139 


140 


141 


142 


O5EB 


05Ғ0 
05Ғ5 


05F7 
05FA 


05FD 
0600 


0603 
0604 


0605 
0606 


0608 
0608 


060Ε 
0611 
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83062A0002 ADD USERSTACK , 2H 
END; 
; STATEMENT # 137 
80065F0001 ADD 1,1H 
7505 JNZ 994 
995: 
SS = USERSTACK.SEG; 
; STATEMENT # 138 
А12С00 MOV AX ,USERSTACK+2H 
A34200 MOV REGSAV+14H, AX 
SP = USERSTACK.OFF; 
; STATEMENT # 139 
A12A00 MOV AX , USERSTACK 
A33600 MOV REGSAV+8H , AX 
END; 
; STATEMENT # 140 
5D POP BP 
сз ВЕТ 
SAVEREGISTERS ENDP 
RESTORESEXECUTE: 
; STATEMENT # 141 
/* THIS PROCEDURE RESTORES THE STATE OF THE USER MACHINE AND 
PASSES CONTROL BACK TO THE USER PROGRAM. IT CONTAINS A 
MACHINE LANGUAGE SUBROUTINE TO PERFORM THE POPPING OF THE 
USER REGISTERS AND TO EXECUTE AN 'IRET' TO TRANSFER CONTROL 
TO THE USER'S PROGRAM. */ 
RESTOREEXECUTE PROC NEAR 
55 PUSH ВР 
8BEC MOV BP,SP 
PROCEDURE ; 
DECLARE RESTORESEXECUTESCODE(*) BYTE DATA 
(08BH, OECH, /* MOV BP,SP */ 
08BH,046H,002H, /* MOV AX,/BP/.PARM2 */ 
08BH,05EH,004H, /* MOV BX,/BP/.PARM1  */ 
O8EH, ODOH, /* MOV SS,AX */ 
O8BH, OE3H, /* MOV SP,BX */ 
050Η, /* POP BP */ 
OSFH, /* POP DI */ 
OSEH, /* POP SI */ 
OSBH, /* POP BX */ 
05AH, /* POP DX */ 
059н, /* POP CX “/ 
058H, /* POP AX */ 
O1FH, /* POP DS */ 
007H, /* POP ES */ 
OCFH), /* IRET */ 
RESTORESEXECUTESCODESPTR WORD DATA (.RESTORESEXECUTESCODE); 
USERSTACK.SEG = SS; 
; STATEMENT # 143 
A14200 MOV AX, REGSAV* 14H 
A32C00 MOV USERSTACK+2H, AX 
USERSTACK.OFF = SP; 
: STATEMENT # 144 
A13600 MOV AX, REGSAV+8H 
A32A00 MOV USERSTACK, AX 
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145 


146 


147 


148 


149 


150 


151 


152 


153 


2 


3 


3 


DO 1=0 TO 10; /* PUSH USER'S REGISTERS ONTO HIS STACK */ 
; STATEMENT # 145 
0614  C6065F0000 MOV 1,0Н 
996: 
0619  803E5FO000A СМР 1,0АН 
O61E 7726 JA 997 


USERSTACK.OFF = USERSTACK.OFF - 2; 
; STATEMENT # 146 
0620 852Е2А0002 SUB USERSTACK , 2H 
MEMORYSUSERSTACK = REGSSAV(REGSORD(10-1)); 
; STATEMENT # 147 


0625 ВЗОА MOV BL ,OAH 
0627 2A1E5F00 SUB BL,I 
0628 В700 MOV BH,OH 
062D 2E8A5F67 MOV BL ,CS:REGORD [BX] 
0631 B700 MOV BH,OH 
0633 D1E3 SHL BX, 1 
0635 88472Е MOV АХ, REGSAV [BX] 
0638 C41E2A00 LES BX , MEMORYUSERSTACKPTR 
063C 268907 MOV ES :MEMORYUSERSTACK [BX] , AX 
END; 
; STATEMENT # 148 
063F  80065F0001 ADD I, 1H 
0644 75D3 JNZ 996 
997: 


USERSTACK.OFF - USERSTACK.OFF - 2; 
; STATEMENT # 149 
0646 832E2A0002 SUB USERSTACK, 2H 
MEMORYSUSERSTACK = BP; 
; STATEMENT # 150 


064B A13800 MOV ΑΧ, КЕСЅАУ+ОАН 
064E C41E2A00 LES BX ,MEMORYUSERSTACKPTR 
0652 268907 MOV ES :MEMORYUSERSTACK [BX] , AX 


CALL RESTORESEXECUTESCODESPTR(USERSTACK . OFF ,USERSTACK.SEG); 
; STATEMENT # 151 


0655 FF362A00 PUSH USERSTACK; 1 
0659 FF362C00 PUSH USERSTACK*2H; 2 
065D 2EFF160400 CALL CS:RESTOREEXECUTECODEPTR 
END; 
; STATEMENT # 152 
0662 5D POP BP 
0663 C3 RET 
RESTOREEXECUTE ENDP 
INTERRUPT 1SENTRY: 


; STATEMENT # 153 
/* THIS PROCEDURE IS CALLED WHEN THE CPU IS INTERRUPTED BY EXECUTING 
AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP). */ 


0664 06 PUSH ES 
0665 1Е PUSH DS 
0666 2E8E1E9A00 MOV DS, CS: daDATASFRAME 
066B 50 PUSH AX 
066c 51 PUSH CX 
066D 52 PUSH DX 
066Е 53 PUSH BX 
O66F 56 PUSH SI 


0670 57 PUSH DI 
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0671 £80900 CALL — INTERRUPTTENTRY 
0674 5F POP DI 
0675 5E POP SI 
0676 5B POP BX 
0677 5A POP DX 
0678 59 POP CX 
0679 58 POP AX 
067A 1Ғ POP DS 
067B 07 POP ES 
067C CF IRET 
INTERRUPT ENTRY PROC NEAR 
0670 55 PUSH ВР 
067E 8ВЕС MOV BP,SP 
PROCEDURE INTERRUPT 1; 
154 2 USERSTACK.OFF = STACKPTR; /* SAVE USER STACK INFO */ 
; STATEMENT # 154 
0680 89Е0 MOV AX,SP 
0682 A32A00 MOV USERSTACK, AX 
155 2 USERSTACK.SEG = STACKBASE; 
; STATEMENT # 155 
0685 8С00 MOV AX, SS 
0687 A32C00 MOV USERSTACK*2H , AX 
156 2 STACKPTR = MONITORSSTACKPTR; 
; STATEMENT # 156 
068A A11400 MOV AX, MONI TORSTACKPTR 
0680 89С4 MOV SP, AX 
157 2 STACKBASE = MONITORSSTACKBASE; 
; STATEMENT # 157 
068F A11600 MOV AX, MONI TORSTACKBASE 
0692 8EDO MOV SS, AX 
158 2 CALL SAVESREGISTERS; 
; STATEMENT # 158 
0694 ΕΒΊΕΕΕ CALL —— SAVEREGISTERS 
159 2 FL = FL AND (NOT STEPSTRAP); /* CLEAR STEP FLAG */ 


; STATEMENT # 159 
0697 81264800FFFE AND REGSAV+1AH, OFEFFH 


160 2 IF LAST$COMMAND«»SS$COMMAND THEN 
; STATEMENT # 160 
0690 803Е610003 CMP LASTCOMMAND , 3H 
06A2 7403 JZ 923 
161 2 CALL RESTORESEXECUTE; /* CONTINUE IF NOT SS */ 
; STATEMENT # 161 
06А4  EBS5EFF CALL RESTOREEXECUTE 
923: 
162 2 CALL KBSUPDATESIP; 
; STATEMENT # 162 
06A7  E8AG6FE CALL KBUPDATEIP 
163 2 IF CHAR=KBCOM THEN 
; STATEMENT # 163 
O6AA  803E5A0011 CMP CHAR, 11H 
O6AF 7515 JNZ 924 
164 2 DO; 
165 3 IP = CSIP.OFF; 
; STATEMENT # 165 
0681 A12600 MOV AX,CSIP 
0686 A34600 MOV REGSAV* 18H , AX 


166 3 CS = CSIP.SEG; 
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167 


168 


169 
170 


172 


173 


174 


176 


; STATEMENT # 166 


0687 4А12800 МОУ AX, CSIP+2H 
O6BA АЗЗЕОО MOV REGSAV* 10H , AX 
FL = FL OR STEPSTRAP; /* SET STEP FLAG */ 
; STATEMENT # 167 
0680 810Е48000001 OR REGSAV* 1AH , 100H 


CALL RESTORESEXECUTE ; 
; STATEMENT # 168 
O6C3 E83FFF CALL RESTOREEXECUTE 
END; 
924: 
IF CHAR<>KBPER THEN СОТО ERROR; 
; STATEMENT 4 170 


06C6 803E5A0010 СМР CHAR , 10H 
O6CB 7403 42 $+5H 
06С0  E9ECFA JMP ERROR 


GOTO AFTERSCOMMAND ; 
; STATEMENT # 172 


0600 ESD6FA JMP AFTERCOMMAND 
END; 
INTERRUPT ENTRY ENDP 


INTERRUPTSSENTRY: 
| ; STATEMENT # 174 
/* THIS PROCEDURE IS CALLED WHEN THE CPU EXECUTES A 'INT 3' INSTRUCTION. 
THE MONITOR INSERTS THIS (OCCH) FOR A BREAKPOINT. ALSO AN EXTERNAL 
INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE TO BE 


CALLED. */ 
0603 06 PUSH ES 
0604 ЛЕ PUSH DS 
0605 2E8E1E9A00 MOV DS, CS: @aDATASFRAME 
O6DA 50 PUSH AX 
0608 51 PUSH CX 
060C 52 PUSH DX 
0600 53 PUSH BX 
060Е 56 PUSH SI 
O6DF 57 PUSH DI 
06Е0 £80900 CALL INTERRUPTSENTRY 
06Е3 5F POP DI 
O6E4 5Е POP SI 
O6E5 5B POP BX 
O6E6 5A POP DX 
06Е7 59 РОР CX 
06Е8 58 РОР АХ 
06Е9 1Ε РОР 05 
O6EA 07 РОР Е5 
06ЕВ СҒ ІКЕТ 
INTERRUPTSENTRY PROC NEAR 
O6EC 55 PUSH BP 
O6ED 8ВЕС MOV BP, SP 
PROCEDURE INTERRUPT 3; 
22 USERSTACK.OFF = STACKPTR; /* SAVE USER STACK INFO */ 
; STATEMENT # 175 
O6EF 89Е0 MOV AX, SP 
O6F1 A32A00 MOV USERSTACK, AX 


USERSTACK.SEG = STACKBASE; 
; STATEMENT # 176 
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06F4 8000 MOV AX,SS 
06Ғ6 АЗ2С00 MOV USERSTACK+2H, AX 
177 2 STACKPTR = MONITORSSTACKPTR; 
; STATEMENT # 177 
O6F9 А11400 MOV AX, MONI TORSTACKPTR 
O6FC 89С4 MOV SP, AX 
178 2 STACKBASE = MONI TORSSTACKBASE; 
; STATEMENT # 178 
O6FE А11600 MOV AX , MONI TORSTACKBASE 
0701 8EDO MOV SS, AX 
179 2 CALL SAVESREGISTERS; 
; STATEMENT # 179 
0703 ΕΒΑΕΕΕ CALL SAVEREGISTERS 
180 2 GOTO AFTERSINTERRUPT; 
; STATEMENT # 180 
0706 Е9О6ҒА JMP AFTERINTERRUPT 
181 2 END; 
INTERRUPT3ENTRY ENDP 
182 1 INITSINTSVECTOR: 


; STATEMENT # 182 
/* THIS ROUTINE INITIALIZES AN INTERRRUPT VECTOR AS FOLLOWS: THE OFFSET 
FROM THE ADDRESS OF 'INTSROUTINE' CORRECTED BY THE APPROPRIATE 
NUMBER OF BYTES FOR THE INTERRUPT PLM PROLOGUE. THE SEGMENT FROM THE 
CURRENT CS REGISTER IS DETERMINED BY A MACHINE LANGUAGE CODED 
SUBROUTINE. */ 
INITINTVECTOR PROC NEAR 
0709 55 PUSH ВР 
070A 8ВЕС MOV BP, SP 
PROCEDURE ( INT$VECTORSPTR, INTSROUT INESOFFSET); 
183 2 DECLARE INT$VECTORSPTR POINTER, INTS$ROUTINESOFFSET WORD, 
VECTOR BASED INTSVECTORSPTR STRUCTURE (OFF WORD, SEG WORD), 
CORRECTION LITERALLY '19H', /* OFFSET FOR PROLOGUE */ 
INITSINTSVECTORSCODE(*) BYTE DATA 


(055H, /* PUSH BP */ 
O8BH, OECH, /* MOV BP,SP */ 
O8CH, OC8H, /* MOV AX,CS */ 
0C4H, OSEH, 004H, /* LES BX,/BP/.PARM1 */ 
026H, 089H,007H, /* MOV ES:W/BX/,AX */ 
O5DH, /* POP BP */ 
OC2H,004H,000H), /* RET 4 */ 
INITSINTSVECTORSCODESPTR WORD DATA (.INITSINTSVECTORSCODE); 
184 2 CALL INITSINTSVECTORSCODESPTR(GVECTOR.SEG); /* SEGMENT PORTION */ 
; STATEMENT # 184 

070C С45Е06 LES BX, [BP] . INTVECTORPTR 

070F 26804702 LEA AX, ES: VECTOR [BX*2H] 

0713 06 PUSH ES ; 1 

0714 50 PUSH AX ; 2 

0715 2ЕҒҒ160600 CALL CS: INITINTVECTORCODEPTR 

185 2 VECTOR.OFF = INTSROUTINESOFFSET - CORRECTION;  /* OFFSET PORTION */ 
; STATEMENT # 185 

071A 884604 MOV ΑΧ, [BP] . INTROUT INEOF FSET 

0710 83Е819 SUB AX, 19H 

0720 С45Е06 LES BX, [BP] . INTVECTORPTR 

0723 268907 MOV ES: VECTOR [BX] , AX 


186 2 END; 
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; STATEMENT # 186 


0726 5D POP BP 
0727 С20600 RET 6H 
INITINTVECTOR ENDP 


/* He dede e de e de e de de ede e e e dee dede e e e e ee dede dede dede e dede de dede de dede dede dede ede dede dede dede de dede dede dede dede kt kt k ke 
Je e Ve de Ve e e e e e e de e e e de de dee sk ee e e de e de ede e k k dee dede dede dede dede dede dede dede k dede de de dede ede k k dede dede dee 


COMMAND MODULE 


ABSTRACT 


THIS MODULE CONTAINS ALL THE COMMANDS IMPLEMENTED AS INDIVIDUAL PROCEDURES 
AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 


1. COMMANDS SECTION 


KB$GO GO 
KBSSINGLESSTEP SINGLE STEP 
ΚΒΦΕΧΑΜΦΜΕΜ SUBSTITUTE MEMORY 
KBSEXAMSREG EXAMINE REGISTER 
КВФМОУЕ МОУЕ 
KBSINPUT INPUT PORT 
KBSOUT PUT OUTPUT PORT 
2. COMMAND DISPATCH (OUTER BLOCK, MAIN PROGRAM LOOP) 
NEXTSCOMMAND DISPATCH 
ERROR ERROR ROUTINE 


"7 
/κκκκκκκκκκκκκκκκκκκκκκκὪ 


* COMMANDS SECTION 5: 


* kee k k k koko He He He He He e He He He He He He e Me Y 


187 1 KB$GO: 
; STATEMENT # 187 


/* IMPLEMENTS THE 'GO' COMMAND. DISPLAYS IP AND CURRENT INSTRUCTION 
BYTE AND OPENS CS:IP FOR INPUT AND ONE OPTIONAL BREAKPOINT. 
BEGINS EXECUTION WHEN A PERIOD IS DEPRESSED AND DISPLAYS 'E' IN 
THE ADDRESS FIELD. UPON ENCOUNTERING A BREAKPOINT, 'BR' IS 
DISPLAYED IN THE DATA FIELD. */ 


KBGO PROC NEAR 
072A 55 PUSH ВР 
0728 8ВЕС MOV BP,SP 
PROCEDURE; 
188 2 CALL KBSUPDATESIP; /* OPTIONAL CHANGE CS:IP */ 
; STATEMENT # 188 
072D Е820ҒЕ CALL —— KBUPDATEIP 
189 2 IF CHAR-KBCOM THEN 
; STATEMENT # 189 
0730 803E5A0011 CMP CHAR, 11H 
0735 754B JNZ 326 
190 2 DO; /* BREAKPOINT */ 


191 3 CALL KBS$BLANKSADDRSFIELD(1); 
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192 


193 


194 


195 


197 


198 


199 


201 


202 


203 


0737 
0739 
073A 


0730 
073Ғ 
0740 


0743 


0746 
074A 
074B 
074C 
0750 
0752 
0753 


0756 
075B 
075D 


0760 
0764 
0767 


076A 


076E 
0772 
0776 
0778 


0778 


0780 


0782 


0787 
0789 
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; STATEMENT # 191 


B001 MOV AL, 1H 
50 PUSH AX ; 1 
E881FB CALL ΚΒΒΙΑΝΚΑΌΡΒΕΙΕΙΌ 
CALL KBSBLANKSDATASFIELD(0); 
; STATEMENT # 192 
в000 моу AL, OH 
50 PUSH AX ; 1 
E864FB CALL — KBBLANKDATAFIELD 
CALL КВФСЕТФСНАВ; 
; STATEMENT # 193 
E855FC CALL КВСЕТСНАВ 


CALL KB$GETSADDR(GBRK1,CSIP.SEG, 1); 
; STATEMENT # 194 


80062200 LEA AX, BRK1 
1E PUSH DS ; 1 
50 PUSH AX ; 2 
FF362800 PUSH CSIP+2H ; 3 
B001 MOV AL, 1H 
50 PUSH AX ; á 
E8ABFD CALL  KBGETADDR 
IF CHAR<>KBPER THEN GOTO ERROR; 
; STATEMENT # 195 
803E5A0010 CMP CHAR,10H 
7403 JZ $+5H 
E95CFA JMP ERROR 
BRK1$SAVE = MEMORYSBRK1; 
; STATEMENT # 197 
C41E2200 LES BX, MEMORYBRKTPTR 
268A07 MOV AL , ES: MEMORYBRK1 [BX] 
A25900 MOV BRK1SAVE, AL 
MEMORYSBRK1 = BREAKSINST; 
; STATEMENT # 198 
26C607CC MOV ES:MEMORYBRK1 [BX] , OCCH 


IF MEMORYSBRK1<>BREAKSINST THEN GOTO ERROR; 
; STATEMENT # 199 


C41E2200 LES ВХ,МЕМОКҮВЕКІРТЕ 
26803FCC CMP ES:MEMORYBRK1 [BX] , OCCH 
7403 JZ $+5H 
E941FA JMP ERROR 
BRKISFLAG = TRUE; 
; STATEMENT # 201 
C6065800F F MOV BRK1FLAG, OFFH 
END; 
; STATEMENT # 202 
EBOA JMP 929 
926: 
ELSE 
IF CHAR<>KBPER THEN GOTO ERROR; 
; STATEMENT # 203 
803E5A0010 CMP CHAR, 10H 
7403 JZ $+5H 
E930FA JMP ERROR 


; STATEMENT # 204 
929: 
CALL KB$DISPLAY(GKBSEXEC, ADDRSFIELD,0); 
; STATEMENT # 205 


24 
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078C 2Е80062Ғ00 LEA AX,CS:KBEXEC 
0791 ОЕ PUSH CS ; 1 
0792 50 PUSH AX ; 2 
0793 B001 MOV AL, 1H 
0795 50 PUSH AX ; 3 
0796 B000 моу AL, OH 
0798 50 PUSH AX +4 
0799  EBB5FA CALL — KBDISPLAY 
206 2 CALL KBSBLANKSDATASFIELD(0); 
> STATEMENT # 206 
079С В000 MOV AL, OH 
079E 50 PUSH AX ; 1 
079Е E805FB CALL — KBBLANKDATAFIELD 
207 2 IP = CSIP.OFF; 
; STATEMENT # 207 
07A2 A12600 MOV AX,CSIP 
07А5  A34600 MOV REGSAV* 18H, AX 
208 2 CS = CSIP.SEG; 
; STATEMENT # 208 
07A8 A12800 MOV ΑΧ, CSIP+2H 
07AB A33E00 MOV REGSAV* 10H, AX 
209 2 FL = FL AND (NOT 5ТЕРӨТБАР); 
- STATEMENT # 209 
07AE 81264800FFFE АМО REGSAV* 1AH , OFEFFH 
210 2 CALL RESTORESEXECUTE; 
; STATEMENT # 210 
07B4  EBAEFE CALL ^ RESTOREEXECUTE 
211 2 END; 
; STATEMENT # 211 
0787 5D POP BP 
0788 C3 RET 
KBGO ENDP 
212 1 KB$SINGLESSTEP: 
; STATEMENT # 212 
/* IMPLEMENTS THE SINGLE STEP COMMAND. DISPLAYS IP AND THE 
CURRENT INSTRUCTION WORD. OPENS CS:IP FOR INPUT. DEPRESSING 
COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, 
AND PERIOD TERMINATES THE COMMAND. */ 
KBSINGLESTEP PROC NEAR 
07B9 55 PUSH ВР 
07BA 8ВЕС MOV BP, SP 
PROCEDURE; 
213 2 CALL KBSUPDATESIP; /* OPTIONAL CHANGE OF CS:IP */ 
; STATEMENT # 213 
07BC Е891Ғ0 CALL ΚΒΌΡΡΑΤΕΙΡ 
214 2 IF CHAR<>KBCOM THEN GOTO ERROR; 
; STATEMENT # 214 
07BF 803E5A0011 CMP CHAR, 11H 
07C4 7403 JZ $+5H 
07C6 E9F3F9 JMP ERROR 
IP = CSIP.OFF; 
; STATEMENT # 216 
07C9 А12600 MOV AX,CSIP 
07CC 4А34600 MOV REGSAV+18H, AX 
217 2 CS = CSIP.SEG; 


; STATEMENT # 217 
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218 


219 


220 


221 


222 
225 


224 


225 


226 


228 


229 


07СҒ 
0702 


0705 


07DB 


07DE 
07DF 


07E0 
07E1 


07Ε5 
07E5 
07E6 


07E9 


07EC 
07Ε0 
07F1 
07Εὸ 
07F6 
07F8 
07F9 


07FC 
0801 
0803 


0806 
080A 
080С 
0800 
080F 
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A12800 MOV AX, CSIP+2H 
A33E00 MOV REGSAV+10H ‚АХ 
FL = FL OR 5ТЕРФТКАР; /* SET TRAP FLAG BIT IN PSW */ 
; STATEMENT # 218 
810E48000001 OR REGSAV+1AH, 100H 
CALL RESTORESEXECUTE ; 
; STATEMENT # 219 
E827FE CALL RESTOREEXECUTE 
END; 
; STATEMENT # 220 
5D POP BP 
c3 RET 
KBSINGLESTEP ENDP 
KB$EXAM$MEM: 
; STATEMENT # 221 
/* IMPLEMENTS THE EXAMINE MEMORY COMMAND. PROMPTS FOR AN 
ADDRESS AND THEN DISPLAYS THE BYTE OR WORD AT THAT LOCATION. 
IT THEN IS OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO 
THE NEXT LOCATION. PERIOD TERMINATES. */ 
KBEXAMMEM PROC NEAR 
55 PUSH BP 
8BEC MOV BP, SP 
PROCEDURE ; 
DECLARE W WORD; 
CALL KBS$BLANKSADDRSF IELD(1); /* PROMPT FOR ADDRESS */ 
; STATEMENT # 223 
B001 MOV AL , 1H 
50 PUSH AX >] 
E8D5FA CALL KBBLANKADDRFIELD 
CALL KBSGETSCHAR; 
; STATEMENT # 224 
EBAFFB CALL KBGETCHAR 
CALL KBSGETSADDR(@ARG1,CS,1); /* GET ADDRESS */ 
; STATEMENT # 225 
8D061A00 LEA AX, ARG1 
1E PUSH DS . 1 
50 PUSH AX 2:2 
FF363E00 PUSH REGSAV+10H; 3 
B001 MOV AL , 1H 
50 PUSH AX Σ 8 
E805FD CALL KBGETADDR 
IF CHAR<>KBCOM THEN GOTO ERROR; 
; STATEMENT # 226 
803E5A0011 CMP CHAR, 11H 
7403 JZ $+5H 
E9B6F9 JMP ERROR 
DO WHILE TRUE; 
; STATEMENT # 228 
098: 
CALL KB$OUTSWORD(ARG1.OFF,ADDRSFIELD,O,BLANK); /* CLEAR PROMPT */ 
; STATEMENT # 229 
FF361A00 PUSH ARG1 $1 
B001 MOV AL , 1H 
50 PUSH AX 2-2 
B100 MOV CL , OH 
51 PUSH CX е 2 
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0810 50 PUSH AX $4 
0811 Е801ҒВ CALL KBOUTWORD 
230 3 IF WORDSMODE THEN 
; STATEMENT # 230 
0814  A06000 MOV AL , WORDMODE 
0817 0008 RCR AL,1 
0819 7313 JNB 933 
231 3 CALL KBSOUTSWORD (MEMORYSWORDSARG1 , DATASF IELD , 1, NOBLANK) ; 
; STATEMENT # 231 
081B С41Е1А00 LES BX ,MEMORYARGIPTR 
081F 26FF37 PUSH ES :MEMORYWORDARG1 [BX] 
0822 B000 MOV AL, OH 
0824 50 PUSH AX ; 2 
0825 8101 MOV CL,1H 
0827 51 PUSH CX 222 
0828 50 PUSH AX ; ὁ 
0829 ΕδΕΟΕΑ CALL KBOUTWORD 
082C  EBOD JMP 934 
933: 
ELSE 
232 5 CALL KBSOUTSBYTE (MEMORYSARG1, 1); 
; STATEMENT # 232 
082Е C41E1A00 LES BX ,MEMORYARGIPTR 
0832 26FF37 PUSH ES :MEMORYARG1 [BX] 
0835 В001 MOV AL , 1H 
0837 50 PUSH AX ; 2 
0838 ЕЗ9АҒА CALL KBOUTBYTE 
934^: 
233 3 CALL KBSGETSCHAR; 
; STATEMENT # 233 
083B E85DFB CALL KBGETCHAR 
234 3 IF CHAR=KBPER THEN RETURN; 
; STATEMENT # 234 
083E  803E5A0010 CMP CHAR , 10H 
0843 7502 JNZ 935 
; STATEMENT # 235 
0845 5D POP BP 
0846 СЗ RET 
935: 
236 3 IF CHAR<>KBCOM THEN 
; STATEMENT # 236 
0847  803E5A0011 CMP CHAR, 11H 
084C 7503 JNZ $+5H 
084E £99100 JMP 936 
257 3 IF WORDSMODE THEN 
; STATEMENT # 237 
0851 A06000 MOV AL , WORDMODE 
0854 0008 RCR AL, 1 
0856 7343 JNB 937 
238 3 DO; 
239 4 W = KBSGETSEXPR(DATASFIELD, 1,NOBLANK); 
; STATEMENT # 239 
0858 B000 MOV AL,OH 
085A 50 PUSH AX 24 
085B В101 MOV CL,1H 
085D 51 PUSH CX ‚ 2 


085Е 50 PUSH AX 23 
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085F E853FB CALL KBGETEXPR 
0862 A34E00 MOV W, ΑΧ 
240 4 IF (CHAR<>KBCOM) AND (CHAR<>KBPER) THEN GOTO ERROR; 
; STATEMENT # 240 
0865  803E5A0011 CMP CHAR, 11H 
086A BOFF MOV AL,OFFH 
086C 7501 JNZ $+3H 
086Е 40 INC AX 
086F 50 PUSH AX . 1 
0870  803E5A0010 CMP CHAR , 10H 
0875 BOFF MOV AL,OFFH 
0877 7501 JNZ $+3H 
0879 40 INC AX 
087A 59 POP CX . 1 
087B 22С1 AND AL,CL 
0870 0008 ЕСЕ AL, 1 
087F 7303 JNB $+5H 
0881 E938F9 JMP ERROR 
242 4 MEMORYSWORDSARG1 = W; 
; STATEMENT # 242 
0884 A14E00 MOV AX ,W 
0887 C41E1A00 LES BX ,MEMORYARGIPTR 
088B 268907 MOV ES :MEMORYWORDARG1 [BX] , AX 
245 4 IF MEMORYSWORDSARG1<>W THEN GOTO ERROR; 
; STATEMENT # 243 
088E  C41E1A00 LES BX,MEMORYARGTPTR 
0892 262807 MOV AX , ES: MEMORYWORDARG1 [BX] 
0895  3B064E00 CMP AX ,W 
0899 EB42 JMP 99 
245 4 END; 
; STATEMENT # 245 
937: 
ELSE 
246 3 DO; 
247 4 W = KBSGETSEXPR(DATASBYTE, 1, NOBLANK) ; 
; STATEMENT # 247 
089B BOFF MOV AL, OFFH 
089D 50 PUSH AX : 1 
089E B001 MOV AL , 1H 
08А0 50 PUSH AX кш 
08А1 8000 МОУ AL , OH 
08A3 50 PUSH AX . 3 
08A4  EBOEFB CALL KBGETEXPR 
08A7 A34E00 MOV W,AX 
248 4 IF (СНАК<>КВСОМ) AND (CHAR<>KBPER) THEN GOTO ERROR; 
; STATEMENT # 248 
O8AA  803E5A0011 CMP CHAR, 11H 
OBAF BOFF MOV AL, ОРЕН 
08B1 7501 JNZ $+3H 
08B3 40 INC AX 
08B4 50 PUSH AX s 1 
08B5  803E5A0010 CMP CHAR , 10H 
08BA BOFF MOV А, ОРЕН 
08BC 7501 JNZ $+3H 
08BE 40 INC AX 
08ВҒ 59 POP CX =: 1 


0800 22C1 AND AL,CL 
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08C2 0008 RCR AL ,1 
08C4 7303 JNB $+5H 
08С6 ESF3F8 JMP ERROR 
250 4 MEMORYSARG1 = LOW(W); 
; STATEMENT # 250 
08C9 A14E00 MOV AX,W 
08СС C41E1A00 LES BX ,MEMORYARGIPTR 
0800 268807 MOV ES :MEMORYARG1 [BX] , AL 
251 4 IF MEMORYSARG1<>LOW(W) THEN GOTO ERROR; 
; STATEMENT # 251 
08D3 A14E00 MOV AX,W 
08D6 C41E1A00 LES BX ,MEMORYARG1IPTR 
08DA 263807 CMP ES :MEMORYARG1 [BX] , AL 
99: 
0800 7403 JZ $+5H 
O8DF ESDAF8 JMP ERROR 
; STATEMENT # 252 
255 4 END; 
936: 
254 3 IF CHAR=KBPER THEN RETURN; 
; STATEMENT # 254 
08E2 803Е5А0010 CMP CHAR, 10H 
08E7 7502 JNZ 945 
; STATEMENT # 255 
08Е9 5D POP BP 
O8EA C3 RET 
943: 
256 3 IF WORDSMODE THEN 
; STATEMENT # 256 
08ЕВ  A06000 MOV AL , WORDMODE 
08ЕЕ 0008 ЕСЕ AL, 1 
08Ғ0 7307 JNB 944 
257 3 ARG1.OFF = ARG1.OFF + 2; 
; STATEMENT # 257 
08F2 83061A0002 ADD ARG1 , 2H 
08F7 ЕВ05 JMP 910 
944: 
ELSE 
258 3 ARG1.OFF = ARG1.OFF + 1; 
; STATEMENT # 258 
08F9 83061A0001 ADD ARG1 , 1H 
259 3 END; 
; STATEMENT # 259 
910: 
O8FE Е905ҒҒ JMP 998 
999: 
260 2 END; 
; STATEMENT ἡ 260 
0901 5D POP BP 
0902 C3 RET 
KBEXAMMEM ENDP 
261 1 КВФЕХАМФКЕС: 


; STATEMENT % 261 
/* IMPLEMENTS THE EXAMINE REGISTER COMMAND. PROMPTS FOR A VALID 
REGISTER KEY AND DISPLAYS THE VALUE OF THAT REGISTER WHICH IS 
OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO NEXT REGISTER 
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UNLESS IT IS 'FL' WHICH TERMINATESS AS DOES PERIOD. */ 


KBEXAMREG PROC NEAR 
0903 55 PUSH ВР 
0904 8ВЕС MOV BP, SP 
PROCEDURE; 
262 2 DECLARE I BYTE, SAVE WORD; 
265 2 CALL KBSBLANKSADDRSFIELD(1); 
; STATEMENT # 263 
0906 B001 MOV AL, 1H 
0908 50 PUSH AX ; 1 
0909 Е8В2Ғ9 CALL — KBBLANKADDRFIELD 
266 2 CALL KBSGETSCHAR; 
; STATEMENT # 264 
090С  EBBCFA CALL —— KBGETCHAR 
265 2 IF CHAR>ODH THEN GOTO ERROR; /* INVALID REG KEY */ 
; STATEMENT # 265 
090F 803E5A000D CMP CHAR, ODH 
0914 7603 JBE $+5H 
0916 Е9АЗЕВ JMP ERROR 
267 2 I - CHAR; 
; STATEMENT # 267 
0919 А05А00 MOV AL, CHAR 
091C A26400 MOV 1,AL 
268 2 DO WHILE TRUE; 
; STATEMENT # 268 
8100: 
269 3 DISP(0),DISP(1) = 0; /* DISPLAY REG NAME */ 
; STATEMENT # 269 
091F В000 MOV AL, OH 
0921 А25В00 MOV DISP,AL 
0924 А25С00 MOV DISP*1H,AL 
270 3 DISP(2) = KB$REG(I*2); 
; STATEMENT # 270 
0927  A06400 MOV AL, I 
092A В102 MOV CL,2H 
092C F6E1 MUL CL 
092E 8903 MOV BX, AX 
0930 2E8A4F4B MOV CL,CS:KBREG [BX] 
0934 880E5D00 MOV DISP*2H,CL 
271 3 DISP(3) = KB$REG(I*2*1); 
; STATEMENT # 271 
0938 2E8A4F4C MOV CL,CS:KBREG [BX*1H] 
093C 880Е5Е00 MOV DISP+3H,CL 
272 3 CALL KB$DISPLAY(GDISP,ADDRSFIELD,0); 
; STATEMENT # 272 
0940 80065800 LEA AX,DISP 
0944 1E PUSH DS ; 1 
0945 50 PUSH AX 2 
0946 В001 MOV AL, 1H 
0948 50 PUSH AX ; 3 
0949 B000 MOV AL, OH 
0948 50 PUSH AX ; á 
094C E802F9 CALL —— KBDISPLAY 
273 3 CALL KBS$OUTSWORD(REGSSAV(I),DATASFIELD,1,NOBLANK); /* VALUE */ 
; STATEMENT # 273 
094F 8A1E6400 MOV BL, I 


0953 B700 MOV ΒΗ, OH 
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0955 
0957 
095A 
095C 
095D 
095F 
0960 
0961 
278 3 


0964 


0967 
096C 
096E 
0970 
0971 
0972 
0977 
0979 
097B 
097C 
097D 
097F 
0981 


0983 
0985 
0986 
0988 
0989 
098A 
098D 
278 4 


0990 
0995 
0997 
0999 
099A 
099B 
09A0 
09A2 
09A4 
09A5 
09A6 
09А8 
09АА 
09АС 
280 4 


O9AF 
0983 
0985 


SDK86 KEYPAD MONITOR PAGE 31 


D1E3 SHL BX, 1 

FF772E PUSH REGSAV[BX]; 1 
в000 MOV AL, OH 

50 PUSH AX ‚ 2 
B101 MOV CL, 1H 

51 PUSH CX ; 3 
50 PUSH AX ; á 
E8B1F9 CALL  KBOUTWORD 


CALL KBSGETSCHAR; 
; STATEMENT # 274 
E834FA CALL KBGETCHAR 
IF CHAR<>KBCOM AND CHAR<>KBPER THEN 
; STATEMENT # 275 


803E5A0011 CMP CHAR, 11H 
BOFF MOV AL , OFFH 
7501 JNZ $+3H 
40 INC AX 
50 PUSH AX ; 1 
803E5A0010 СМР CHAR , 10H 
BOFF MOV AL , OFFH 
7501 JNZ $+3H 
40 INC AX 
59 POP CX 4.7 
22C1 AND AL,CL 
D0D8 RCR AL,1 
733A JNB 947 

DO; 


SAVE = KB$GETSEXPR(DATASFIELD, 1,NOBLANK); /* UPDATE */ 
; STATEMENT # 277 


В000 MOV AL, OH 

50 PUSH AX ; 1 
B101 MOV CL, 1H 

51 PUSH CX ; 2 
50 PUSH АХ ; 3 
E828FA CALL  ΚΒΟΕΤΕΧΡΑ 
A35000 MOV SAVE , AX 


IF CHAR<>KBCOM AND CHAR<>KBPER THEN GOTO ERROR; 
; STATEMENT # 278 


803E5A0011 CMP CHAR, 11H 
BOFF MOV AL, OFFH 
7501 JNZ $+3H 

40 INC AX 

50 PUSH АХ ; 1 
803E5A0010 CMP CHAR, 10H 
BOFF MOV AL ,OFFH 
7501 JNZ $+3H 

40 INC AX 

59 POP CX xn 
2201 AND AL,CL 

0008 RCR AL,1 

7303 JNB $+5H 
Е900Е8 ЈМР ERROR 


REGSSAV(I) = SAVE; 
; STATEMENT # 280 
8A1E6400 MOV BL,I 
B700 MOV BH, OH 
D1E3 SHL BX, 1 
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284 


285 


. e86 


287 


288 


289 


290 
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0987 А15000 MOV 
09BA 89472E MOV 


AX,SAVE 
REGSAV [BX] , AX 


IF CHAR=KBPER OR 1-13 THEN RETURN; 
; STATEMENT # 282 


0980  803E5A0010 CMP CHAR , 10H 
09С2 BOFF MOV AL, OFFH 
09c4 7401 JZ $+3H 
09C6 40 INC AX 
09С7 50 PUSH AX #1 
09C8  803E64000D СМР 1,0DH 
09С0 BOFF MOV AL, OFFH 
09СЕ 7401 JZ $+3H 
0901 40 INC AX 
0902 59 РОР CX £3 
0903 ОАС1 OR AL,CL 
0905 D0D8 RCR AL,1 
0907 7302 JNB 949 
; STATEMENT # 283 
0909 5D POP BP 
09DA C3 RET 
949: 
I = I + 1; 
; STATEMENT # 284 
090B 8006640001 ADD І,ІН 
END; 
; STATEMENT # 285 
09Е0 E93CFF JMP 9100 
9101: 
END; 
; STATEMENT # 286 
09Е3 5D POP BP 
09Е4 СЗ RET 
KBEXAMREG ENDP 
KBSMOVE : 


; STATEMENT # 287 
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/* DONE? */ 


/* IMPLEMENTS THE MOVE COMMAND. PROMPTS FOR 3 ARGUMENTS AND MOVES 


THE BLOCK OF MEMORY SPECIFIED BY ARG1-ARG2 TO ARG3. 


A DIFFERENCE WHEN READ BACK, THEN ERROR. */ 


KBMOVE PROC NEAR 
09Е5 55 PUSH ВР 
09Е6 8ВЕС MOV BP, SP 

PROCEDURE ; 


CALL KB$BLANKSADDRSFIELD(3); 
; STATEMENT # 288 


09Е8 B003 MOV AL , 5H 
O9EA 50 PUSH AX i3 
O9EB E8DOF8 CALL KBBLANKADDRFIELD 


CALL KBSGETSCHAR; 
; STATEMENT # 289 
O9EE ЕВААҒ9 CALL KBGETCHAR 
CALL KBSGETSADDR(@ARG1,CS,3); 
; STATEMENT # 290 
AX, ARG1 
DS * 1 


09Ғ1 8D061A00 LEA 
09Ғ5 1E PUSH 


IF THERE IS 


/* FIRST ARGUMENT */ 
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09Е6 
09F7 
09ЕВ 
O9FD 
09ҒЕ 
291 


0А01 
0А06 
0A08 
293 


OAOB 
0А00 
OAOE 
294 


0A11 
295 


0A14 
0A16 
0A17 
0A19 
0A1A 
ΟΑΊΒ 
ΟΑΊΕ 
296 


0A21 
0A24 
0A28 
ОА2А 
298 


OA2D 
0A32 
0A34 
500 


0A37 
0A39 
0A3A 
301 


OA3D 
302 


0A40 
0A44 
0A45 
0A46 
OA4A 
OA4C 
OA4D 
303 
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50 PUSH АХ ; 2 
FF363E00 PUSH REGSAV+10H; 3 
B003 MOV AL, 3H 
50 PUSH AX ; á 
E800FB CALL KBGETADDR 
IF CHAR<>KBCOM THEN GOTO ERROR; 
; STATEMENT # 291 
803E5A0011 CMP CHAR,11H 
7403 JZ $+5H 
E9B1F7 JMP ERROR 
CALL KBSBLANKSADDRSFIELD(2); /* SECOND ARGUMENT */ 
; STATEMENT # 293 
B002 MOV AL , 2H 
50 PUSH AX : 1 
EBADF8 CALL — KBBLANKADDRFIELD 
CALL KB$GETSCHAR; 
; STATEMENT # 294 
E887F9 CALL ΚΒΟΕΤΟΗΑΒ 
ENDSOFF = KB$GETSEXPR(ADDRSFIELD, 2, BLANK); 
; STATEMENT # 295 
B001 MOV AL, 1H 
50 PUSH AX ; 1 
в102 моу CL,2H 
51 PUSH CX ; 2 
50 PUSH АХ ; 3 
E897F9 CALL | KBGETEXPR 
A31800 MOV ENDOFF , AX 
IF ENDSOFF<ARG1.OFF THEN GOTO ERROR; 
; STATEMENT # 296 
A11800 MOV ΑΧ, ENDOFF 
3B061A00 CMP AX, ARG1 
7303 JNB $+5H 
E98FF7 JMP ERROR 
IF CHAR<>KBCOM THEN GOTO ERROR; 
; STATEMENT # 298 
803E5A0011 CMP CHAR, 11H 
7403 JZ $+5H 
E985F7 JMP ERROR 
CALL KB$BLANK$ADDR$FIELD(1); /* THIRD ARGUMENT */ 
; STATEMENT # 300 
B001 MOV AL,1H 
50 PUSH AX ; 1 
E881F8 CALL —— KBBLANKADDRFIELD 
CALL ΚΒΦΩΕΤΦΟΗΑΒ; 
; STATEMENT ἡ 301 
E85BF9 CALL ΚΒΟΕΤΟΗΑΒ 
CALL KB$GETSADDR(GARGS , ARG1.SEG, 1); 
; STATEMENT # 302 
8D061E00 LEA AX, ARG3 
1E PUSH DS ; 1 
50 PUSH AX ; 2 
FF361C00 PUSH ARG1+2H ; 3 
B001 MOV АЫ, 1H 
50 PUSH АХ ; & 
E8B1FA CALL ΚΒΟΕΤΑΌΌΒ 


IF CHAR<>KBPER THEN GOTO ERROR; 


; STATEMENT # 303 
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305 


306 


308 


310 


311 


312 


313 


314 


315 
316 


917 


0450 803E5A0010 СМР CHAR , 10H 
0A55 7403 JZ $+5H 
0A57 E962F7 JMP ERROR 
LOOP: 
; STATEMENT % 305 
LOOP: 

MEMORYSARG3S = MEMORYSARG1; 
0Α5Α C41E1A00 LES BX ,MEMORYARGIPTR 
0Α5Ε 268A07 MOV AL , ES: MEMORYARG1 [BX] 
0A61 С41Е1Е00 LES BX ,MEMORYARG3PTR 
0А65 268807 MOV ES:MEMORYARG3 [BX] , AL 


IF MEMORYSARG3<>MEMORYSARG1 THEN GOTO ERROR; 
; STATEMENT # 306 


OA68 C41E1E00 LES ВХ, MEMORYARGSPTR 
OA6C  268A07 MOV AL , ES: MEMORYARGS3 [BX] 
OA6F C41E1A00 LES ВХ, MEMORYARGTPTR 
OA73 263Α07 CMP AL , ES: MEMORYARG! [BX] 
0А76 7403 JZ $+5H 

0A78 Е941Ғ7 JMP ERROR 


IF ARG1.OFF = ENDSOFF THEN RETURN; 
; STATEMENT # 308 


0Α7Β А11А00 MOV AX, ARG1 
OA7E 38061800 CMP AX, ENDOFF 
0Α8ὸ 7502 JNZ 855 
; STATEMENT # 309 
0А84 50 РОР ВР 
0A85 C3 RET 
955: 


ARG1.OFF = ARG1.OFF + 1; 
; ЅТАТЕМЕМТ # 310 
0486 830610001 ADD ARG1, 1H 
ARG3.OFF = ARG3.OFF + 1; 
; STATEMENT # 311 


OA8B 83061Е0001 ADD ARG3, 1H 
GOTO LOOP; 
; STATEMENT # 312 
0А90 ЕВС8 ЈМР LOOP 
END; 
KBMOVE ENDP 
KB$INPUT: 


; STATEMENT # 314 


/* PROMPTS FOR A PORT WORD IN THE ADDRESS FIELD. 
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WHEN A COMMA 


IS ENTERED THE BYTE OR WORD IS DISPLAYED IN THE DATA FIELD. 


THIS MAY BE REPEATED FOR MULTIPLE READING OF 
TERMINATES THE COMMAND. */ 


KBINPUT PROC NEAR 
0A92 55 PUSH BP 
0A93 8ВЕС MOV BP,SP 

PROCEDURE; 


DECLARE PORT WORD; 
CALL KBSBLANKSADDRSFIELD(1); 
; STATEMENT # 316 


0А95 ΒΟΟΊ MOV AL , 1H 
0A97 50 PUSH AX :3 
0A98 Е825Ғ8 CALL KBBLANKADDRFIELD 


CALL KBSGETSCHAR; 


THE PORT. PERIOD 


/* PROMPT FOR PORT */ 
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38 2 
319 2 
320 2 
322 e 
525 2 
324 2 
325. 2 
326 2 


0А98 


OA9E 
OAAO 
0AA1 
0AA2 
ОААЗ 
0ΑΑό 


0ΑΑΦ 
OAAD 
OAAF 
OABO 
OAB2 
0АВ3 
OAB4 


0AB7 
OABC 
OABE 


OAC1 
OAC4 
OAC6 


OAC8 
OACC 
OACD 
OACE 
OADO 
0AD1 
OAD2 
0А03 
0А06 


OAD8 
OADC 
OADD 
OADE 
OAEO 
OAE1 


OAE4 
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; STATEMENT # 317 


E8FDF8 CALL KBGETCHAR 
PORT = KBSGETSEXPR(ADDRSFIELD, 1, BLANK); /* GET PORT NUMBER */ 
; STATEMENT # 318 
B001 MOV AL , 1H 
50 PUSH AX n 
50 PUSH AX а ë 
50 PUSH AX . ο 
E80FF9 CALL KBGETEXPR 
A35200 MOV PORT , AX 
CALL KB$OUTSWORD(PORT,ADDRSFIELD,O,BLANK); /% REMOVE PROMPT */ 
| ; STATEMENT # 319 
FF365204) PUSH PORT : 1 
B001 MOV AL , 1H 
50 PUSH AX 222 
B100 MOV CL , OH 
51 PUSH CX 224 
50 PUSH AX ; & 
ΕδΞΕΕδ CALL KBOUTWORD 
LOOP: 
; STATEMENT # 320 
00Р: 
803E5A0011 CMP CHAR, 11H 
7403 JZ $+5H 
ΕΦΕΒΕό JMP ERROR 
IF CHAR<>KBCOM THEN GOTO ERROR; 
IF WORDSMODE THEN 
; STATEMENT # 322 
A06000 MOV AL , WORDMODE 
0008 RCR AL,1 
7310 JNB 957 
CALL KB$OUT$WORD( INWORD (PORT ) , DATASF IELD , O, NOBLANK) ; 
; STATEMENT # 323 
8В165200 МОУ DX,PORT 
ED INW DX 
50 PUSH AX R 
B000 MOV AL , OH 
50 PUSH AX 4:5 
50 PUSH AX 4,2 
50 PUSH AX © 4 
E83FF8 CALL KBOUTWORD 
EBOC JMP 958 
957: 
ELSE 
CALL KB$OUTSBYTECINPUT(PORT),0); 
; STATEMENT # 324 
8В165200 MOV DX,PORT 
EC IN DX 
50 PUSH AX 23 
B000 MOV AL , OH 
50 PUSH AX Е 4 
E8F1F7 CALL KBOUTBYTE 
958: 
CALL KBSGETSCHAR; 
; STATEMENT # 325 
E8B4F8 CALL KBGETCHAR 


IF CHAR=KBPER THEN RETURN; 
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328 
329 


330 


331 


332 


333 


334 


332 


337 


338 


339 


NN 
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; STATEMENT # 326 
OAE7 803E5A0010 CMP CHAR, 10H 
OAEC 75С9 JNZ LOOP 
; STATEMENT # 327 
OAEE 5D POP BP 
OAEF C3 RET 
GOTO LOOP; 
END; 
KBINPUT ENDP 
KBSOUTPUT : 
; STATEMENT # 330 
/* PROMPTS FOR A PORT WORD IN THE ADDRESS FIELD AND A BYTE OR 
WORD DATUM IN THE DATA FIELD. THIS DATUM IS OUTPUT A SINGLE TIME 
TO THE SPECIFIED PORT. */ 
KBOUTPUT PROC NEAR 
OAFO 55 PUSH BP 
OAF1 8ВЕС MOV BP, SP 
PROCEDURE; 
DECLARE (DATUM,PORT) WORD; 
CALL KBSBLANK$SADDRSFIELD(1); /* PROMPT FOR PORT */ 
; STATEMENT # 332 
ОАҒЗ B001 MOV AL, 1H 
OAF5 50 PUSH AX 5 77 
OAFÓ EB8C5F7 CALL KBBLANKADDRFIELD 
CALL KBSGETSCHAR; 
; STATEMENT # 333 
OAF9 E89FF8 CALL KBGETCHAR 
PORT = KB$GETSEXPR(CADDRSF IELD, 1, BLANK); 
; STATEMENT # 334 
OAFC ΒΟΟΊ MOV AL, 1Η 
OAFE 50 PUSH AX АА. 
OAFF 50 PUSH AX Ж. 
0800 50 PUSH AX : 3 
0801 Е8В1Ғ8 САП KBGETEXPR 
0804  A35600 MOV PORT , AX 
IF CHAR<>KBCOM THEN GOTO ERROR; 
; STATEMENT # 335 
0807 803E5A0011 CMP CHAR, 11H 
OBOC 7403 JZ $45H 
OBOE E9ABFÓ JMP ERROR 
CALL KB$OUTS$WORD(PORT,ADDRSFIELD,O,BLANK); X /* REMOVE PROMPT */ 
; STATEMENT # 337 
0811 FF365600 PUSH PORT . 3 
0815 ΒΟΟΊ MOV AL, 1H 
0817 50 PUSH AX r. б 
0818 В100 MOV CL , OH 
0Β1Α 51 PUSH CX * 3 
0818 50 PUSH AX 7 4 
OB1C E8F6F7 CALL KBOUTWORD 
CALL KBSBLANKSDATASFIELD(1); /* PROMPT FOR DATUM */ 
; STATEMENT # 338 
OB1F ΒΟΟΊ MOV AL, 1H 
0821 50 PUSH AX 1. ἥ 
0822 E882F7 CALL KBBLANKDATAFIELD 


CALL KBSGETSCHAR; 
; STATEMENT # 339 
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340 


341 


342 


343 


345 


346 


347 


348 


349 


2 


0B25 


0828 
0828 
0820 


OB2F 
0B31 
0B32 
0834 
0835 


0837 
0839 
0B3A 
0B3C 
0830 


OB3F 
0B40 
0B43 


0B46 
0B4B 
0B4D 


0850 
0853 
0855 


0857 
0858 
085Ε 
OB5F 


0B61 
0B64 
0B68 


0B69 
OBÓE 
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DATUM = KB$GETSEXPR(DATASFIELD, 1, NOBLANK); /* GET DATUM WORD */ 


KBGETCHAR 
; STATEMENT # 340 
AL , WORDMODE 


AL, 1 
961 


; STATEMENT # 341 


AL , OH 

AX s 1 
CL. 1H 

CX dE 
918 


DATUM = KB$GETSEXPR(DATASBYTE , 1 , NOBLANK) ; 


; STATEMENT # 342 


AL,OFFH 

AX $4 
AL , 1H 

AX ; 2 
AL, OH 

AX 4-2 
КВСЕТЕХРК 
DATUM, AX 


GOTO ERROR; 
; STATEMENT # 343 
CHAR, 14H 
$+5H 
ERROR 


; STATEMENT # 345 
AL , WORDMODE 
AL, 1 
964 


; STATEMENT # 346 
DX,PORT 
AX , DATUM 
DX 
965 


- STATEMENT # 347 
AX , DATUM 
DX, PORT 
DX 
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/* GET DATUM BYTE */ 


/* MULTIPLE OUTPUTS */ 


; STATEMENT # 348 
CHAR, 11H 


E873F8 CALL 
00Р: 
LOOP: 
A06000 MOV 
D0D8 RCR 
7308 JNB 
IF WORDSMODE THEN 
B000 MOV 
50 PUSH 
B101 MOV 
51 PUSH 
EB08 JMP 
961: 
ELSE 
BOFF MOV 
50 PUSH 
B001 MOV 
50 PUSH 
B000 MOV 
918: 
50 PUSH 
E872F8 CALL 
A35400 MOV 
IF CHAR=KBCOL THEN 
803E5A0014 CMP 
7503 JNZ 
Е96СҒ6 JMP 
IF WORD$MODE THEN 
A06000 MOV 
0008 RCR 
730A JNB 
OUTWORD(PORT) = DATUM; 
8В165600 MOV 
A15400 MOV 
EF OUTW 
ΕΒΟΒ JMP 
964: 
ELSE 
OUTPUT(CPORT) = LOW(DATUM); 
A15400 MOV 
8B 165600 MOV 
EE OUT 
965: 
IF CHAR=KBCOM THEN 
803E5A0011 CMP 
7510 JNZ 


DO; 


966 
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350 3 CALL КВФВІ АМКФОАТАФҒІЕІ0(1); 
; STATEMENT # 350 
0870 B001 MOV AL, 1H 
0872 50 PUSH AX 1 1 
0873 E831F7 CALL KBBLANKDATAFIELD 
351 3 CALL KBSGETSCHAR; 
; STATEMENT # 351 
0B76 E822F8 CALL KBGETCHAR 
τας... ἃ IF CHAR<>KBPER THEN GOTO LOOP; 
; STATEMENT # 352 
0879 803E5A0010 CMP CHAR, 10H 
OB7E 75А8 JNZ LOOP 
; STATEMENT # 353 
354 3 END; 
966: 
355 2 END; 
; STATEMENT # 355 
0880 50 РОР ВР 
0881 С3 КЕТ 
KBOUTPUT ENDP 


ымыны koko kok k kekok kekok k sk kok ok koko kekok kekok kok kok ke kok k 


* COMMAND DISPATCH MAIN PROGRAM LOOP * 


Tee e ek k e Ve dese jede e jede fe dee he dede dee t e e k e fe sk k k адаа 


356 1 DISABLE; 
| ; STATEMENT # 356 
009С ҒА CLI 
009D 2Е8Е169800 MOV SS, CS: @aSTACKSFRAME 
00A2 ВС5000 MOV SP , @ASTACKSOF FSET 
00A5 8BEC MOV BP, SP 
00A7 2E8E1E9A00 MOV DS, CS: @QDATASFRAME 
OOAC FB STI 
OOAD FA CLI 
357 1 OUTPUT (КВФЅТАТЅРОВТ) = KBSINIT$MODE; /* INIT 8279 */ 
; STATEMENT # 357 
OOAE BAEAFF MOV DX, OF FEAH 
0081 Β000 MOV AL, OH 
0083 EE OUT DX 
358 1 OUTPUT(KBS$STATSPORT) = KBSINITSSCAN; 
; STATEMENT # 358 
0084 B039 MOV AL, 39H 
00B6 EE OUT DX 
359 1 CALL KBS$DISPLAY(@KBS$SIGNON, ADDRSFIELD,0); /* SIGN ON MESSAGE */ 
; STATEMENT # 359 
0087 2Е80061Е00 LEA AX,CS:KBSIGNON 
O0BC ОЕ PUSH CS ; 1 
0080 50 PUSH АХ ; 2 
00ВЕ B001 MOV AL, 1H 
0060 50 PUSH AX ; З 
0051 B000 MOV AL, OH 
00c3 50 PUSH АХ :% 
00С4  EB88A01 CALL ΚΒΡΙ5ΡΙΑΥ 
360 1 CALL KB$DISPLAY(QKBSVERSION,DATASFIELD,O); /* VERSION NUMBER */ 


; STATEMENT # 360 
00C7 2Е80062300 LEA AX, CS: KBVERSION 
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OOCC ОЕ PUSH CS ; 1 

0000 50 PUSH AX ; 2 

OOCE В000 MOV AL , OH 

0000 50 PUSH AX г ὦ 

0001 50 PUSH AX ; & 

0002 Е87С01 CALL — KBDISPLAY 

/* INITIALIZE USER'S REGISTERS */ 
361 1 CS,SS,DS,ES,FL,IP = 0; 
; STATEMENT # 361 

0005  B80000 MOV AX, OH 

00D8 A33E00 MOV REGSAV+10H, AX 

0008 А34200 MOV REGSAV+14H, AX 

000Е A34000 MOV REGSAV+12H, AX 

00Е1 A34400 MOV REGSAV+16H, AX 

00Е4 A34800 MOV REGSAV+1AH, AX 

00Е7 A34600 MOV REGSAV+18H, AX 
362 1 SP = USERSINITSSP; 


; STATEMENT # 362 


OOEA С70636000001 MOV REGSAV+8H, 100H 


363 1 CALL INITSINTSVECTOR(GINTSVECTOR( 1), . INTERRUPT1SENTRY); 
; STATEMENT # 363 
00Ғ0 80060400 LEA AX, INTVECTOR+4H 
00Ғ4 1E PUSH DS ; 1 
00Е5 50 PUSH AX ; 2 
00Е6 887006 моу AX,OFFSET(INTERRUPTIENTRY) 
00Ғ9 50 PUSH АХ ; 3 
ООҒА Е80С06 CALL —— INITINTVECTOR 
364 1 CALL INITSINTSVECTOR(GINTSVECTOR(2) , . INTERRUPTZSENTRY); 
; STATEMENT # 364 
OOFD 80060800 LEA AX, INTVECTOR+8H 
0101 1E PUSH DS ; 1 
0102 50 PUSH AX ; 2 
0103 B8EC06 MOV АХ, OFFSET ( INTERRUPT3ENTRY ) 
0106 50 PUSH AX ; 3 
0107 E8FFOS CALL ІМІТІМТУЕСТОВ 
365 1 CALL INITSINTSVECTOR(@INTS$VECTOR(3), . INTERRUPT3SENTRY); 
; STATEMENT # 365 
010A 8D060C00 LEA AX, INTVECTOR*OCH 
010E 1E PUSH DS ; 1 
010F 50 PUSH AX ; 2 
0110 B8EC06 MOV АХ, OFFSET(INTERRUPTSENTRY ) 
0113 50 PUSH AX ; 3 
0114 Е8Ғ205 CALL — INITINTVECTOR 
366 1 BRK1SFLAG = FALSE; 
; STATEMENT # 366 
0117 С606580000 MOV BRK1FLAG, OH 
367 1 MONITORSSTACKBASE = STACKBASE; /* SAVE MONITOR STACK VALUES */ 
; STATEMENT # 367 
011C 8000 MOV AX,SS 
011E 31600 MOV MONITORSTACKBASE , AX 
368 1 MONITORSSTACKPTR = STACKPTR; . 
; STATEMENT # 368 
0121 89Е0 MOV AX,SP 
0123 А31400 MOV MONI TORSTACKPTR, AX 


569 1 GOTO AFTERSERROR; 
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370 


371 


ote 


373 


374 


376 


af 


378 
379 


380 


0126 EB10 


1 
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JMP 


NEXTSCOMMAND : 
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; STATEMENT # 369 
AFTERERROR 


; STATEMENT # 370 


/* THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES TO EACH 
COMMAND WHICH IS A SEPARATE PROCEDURE. */ 


972: 


NEXTCOMMAND : 
0128 2E8D061B00 LEA AX , CS : KBCMNDPMT 
012D OE PUSH cs £3 
012E 50 PUSH AX s. 
012F ΒΟΟΊ MOV AL, 1H 
0131 50 PUSH AX * ἃ 
0132 B000 MOV AL , OH 
0134 50 PUSH AX ; 4 
0135 £81901 CALL KBD ISPLAY 
CALL KBSDISPLAY(@KBSCMNDSPMT , ADDRSFIELD,0); 
1 AFTERSERROR: 
; STATEMENT # 371 
AFTERERROR: 
CALL KBSGETSCHAR; 
0138 £86002 CALL KBGETCHAR 
1 CALL KBSBLANK$SADDRS$FIELD(0); 
; STATEMENT # 372 
0138 B000 MOV AL, OH 
013D 50 PUSH AX а. 
013Е Е87р01 CALL KBBLANKADDRF IELD 
1 CALL KB$BLANKSDATASFIELD(0); 
; STATEMENT # 373 
0141 B000 MOV AL , OH 
0143 50 PUSH AX ἃ 
0144 Е86001 CALL KBBLANKDATAFIELD 
1 IF (_АЅТФСОММАМО :=CHAR)>O9H THEN GOTO ERROR; 
; STATEMENT # 374 
0147 А05А00 MOV AL , CHAR 
014A A26100 MOV LASTCOMMAND , AL 
0140 3С09 CMP AL ,9H 
014F 7768 JA ERROR 
1 WORDSMODE = FALSE; 
; STATEMENT # 376 
0151 С606600000 MOV WORDMODE , OH 
1 DO CASE CHAR; 
; STATEMENT # 377 
0156 8A1E5A00 MOV BL,CHAR 
015A 8700 MOV BH,OH 
015C D1E3 SLL BX,1 
015E 2EFFA79501 JMP CS:3102 [BX] 
2 CALL КВФЕХАМФМЕМ; 
2 CALL ΚΒΦΕΧΑΜΦΚΕΩ; 
; STATEMENT # 379 
971: 
0163 Е89007 „ CALL KBEXAMREG 
0166 EB41 JMP AFTERCOMMAND 
2 CALL KB$GO; 


; STATEMENT # 380 
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381 


382 
383 
384 


385 


389 


393 


397 


398 


NNN 
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0168 E8BF05 CALL KBGO 
016B EB3C JMP AFTERCOMMAND 
CALL KBSSINGLESSTEP; 
; STATEMENT # 381 
973: 
0160 Е84906 CALL KBSINGLESTEP 
0170 EB37 JMP AFTERCOMMAND 
CALL ΚΒΦΙΝΡυΤ; 
CALL KB$OUTPUT ; 
CALL KB$MOVE; 
; STATEMENT # 384 
976: 
0172 Е87008 CALL KBMOVE 
0175 ЕВ32 JMP AFTERCOMMAND 
DO; WORDSMODE = TRUE; CALL КВФЕХАМФМЕМ; END; 
977: 
; STATEMENT # 386 
0177  C6066000FF MOV WORDMODE , OFFH 
; STATEMENT # 387 
919: 
017C Е86106 CALL KBEXAMMEM 
; STATEMENT # 388 
017F ЕВ28 JMP AFTERCOMMAND 
DO; WORDSMODE TRUE; CALL KBSINPUT; END; 
978: 
; STATEMENT # 390 
0181 С6066000ҒҒ MOV WORDMODE , OF FH 
; STATEMENT # 391 
921: 
0186 £80909 CALL KBINPUT 
; STATEMENT # 392 
0189 ΕΒΊΕ JMP AFTERCOMMAND 
DO; WORDSMODE = TRUE; CALL KBSOUTPUT; END; 
979: 
; STATEMENT # 394 
0188 C6066000FF MOV WORDMODE , OF FH 
; STATEMENT # 395 
925: 
0190 Е85009 CALL KBOUTPUT 
; STATEMENT # 396 
0193 EB14 JMP AFTERCOMMAND 
END; 
; STATEMENT # 397 
9102: 
0195 7C01 DW 919 
0197 6301 DW 971 
0199 6801 DW 972 
0198 6001 DW 973 
0190 8601 DW 921 
019F 9001 DW 925 
01A1 7201 DW 976 
01A3 7701 DW 977 
01A5 8101 DW 978 
01A7 8B01 DW 979 
AFTERSCOMMAND : 


; STATEMENT # 398 


41 
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AFTERCOMMAND : 
01A9 BC5000 MOV SP , AASTACKSOFFSET 
01AC 8ВЕС MOV BP, SP 
01AE 2Е8Е1Е9А00 MOV DS, CS: @aDATASFRAME 
0183 Β000 MOV AL, OH 
0185 50 PUSH АХ ; 1 
0186 ЕЗЕЕОО CALL —— KBBLANKDATAFIELD 

CALL KBS$BLANKSDATASF IELD(0); 
399 1 GOTO ΝΕΧΤΦΟΟΜΜΑΝΟ; 
; STATEMENT # 399 

0189 Е96СЕҒ JMP NEXTCOMMAND 


400 1 ERROR: 
; STATEMENT # 400 
/* THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE MONITOR AND WILL 
OUTPUT THE ERROR MESSAGE TO THE DISPLAY AND THEN JUMP TO 
'AFTERSERROR' TO GET ANOTHER COMMAND. */ 


ERROR: 
01BC ВС5000 MOV SP ,ƏQSTACK$OFFSET 
01BF 8ВЕС MOV BP ,SP 
01C1 2E8E1E9A00 MOV DS, CS: @QDATASFRAME 
01C6 2Е80062800 LEA AX,CS:KBERRMSG 
01CB OE PUSH CS ; 1 
0Ί6ο 50 PUSH AX ; 2 
01CD B001 MOV AL, 1H 
01СҒ 50 PUSH АХ ; 3 
0100 B000 MOV AL, OH 
0102 50 PUSH АХ ; á 
0103 Е87В00 CALL KBDISPLAY 
CALL KB$DISPLAY(ƏKB$ERR$MSG,ADDR$FIELD,0O); 
401 1 CALL KBSBLANKSDATASFIELD(0); 
; STATEMENT # 401 
0106 B000 MOV AL, OH 
01D8 50 PUSH AX ; 1 
0109 Е8СВ00 CALL —— KBBLANKDATAFIELD 
402 1 GOTO AFTERSERROR; 
; STATEMENT # 402 
010С E959FF JMP AFTERERROR 
403 1 AFTERSINTERRUPT: 


; STATEMENT # 403 
/* THIS ROUTINE CHECKS FOR THE LAST COMMAND WHEN THE MONITOR IS 
REENTERED VIA THE INTERRUPT VECTOR. */ 


AFTERINTERRUPT: 
010Ғ ВС5000 MOV SP, aaS TACKSOF FSET 
01Е2 8ВЕС MOV BP,SP 
01Е4 2E8E1E9A00 MOV DS, CS:@@aDATASFRAME 
01Е9 A05800 MOV AL,BRK1FLAG 
01ЕС 0008 RCR AL,1 
927: 
O1EE 73B9 JNB AFTERCOMMAND 
IF BRKISFLAG THEN 
404 1 DO; 
405 2 MEMORYSBRK1 = BRK1$SAVE; 


; STATEMENT # 405 
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407 


408 
409 


410 


411 


412 
413 
414 


(4 го 


ег UN 


01Ғ0 
01F3 
01F7 


O1FA 


O1FF 
0202 
0205 
0206 
0209 
0200 
020E 
0212 
0214 
0216 
0218 
0219 
021A 
021D 
021F 
0221 
0225 
0226 
0228 
022C 
022D 
022F 
0231 
0233 
0234 
0235 
0237 
0239 


023B 


0240 
0245 
0246 
0247 
0249 
024A 
024B 


024E 
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A05900 MOV AL , BRK1SAVE 
C41E2200 LES BX,MEMORYBRKTPTR 
268807 MOV ES:MEMORYBRK1 [BX] , AL 
BRKTSFLAG = FALSE; 
; STATEMENT # 406 
C606580000 MOV BRK1FLAG, OH 


IF ((IP-1) AND OOOFH)=(BRK1.OFF AND OOOFH) AND 
; STATEMENT # 407 
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A14600 MOV AX , REGSAV+18H 
83Е801 50В AX , 1H 
50 PUSH AX AP 
250F00 AND AX , OFH 
8B0E2200 MOV CX, BRK1 
51 PUSH CX τα 
81E10F00 AND CX, OFH 
3BC1 CMP AX , CX 
BOFF MOV AL , ОРЕН 
7401 JZ $+3H 
40 INC AX 
5A POP DX 2 2 
8756FE XCHG DX, [BP]-2H; 1 
B104 MOV CL ,4H 
D3EA SHR DX,CL 
03163E00 ADD ОХ, REGSAV+10H 
5B POP BX . 1 
D3EB SHR BX,CL 
031E2400 ADD BX , BRK1+2 
50 PUSH AX 5: ἢ 
3BD3 CMP DX,BX 
BOFF MOV AL , OFFH 
7401 JZ $+3H 
40 INC AX 
59 POP CX : Ἴ 
22C1 AND AL,CL 
D0D8 RCR AL,1 
73B3 JNB 927 
(SHRCIP-1,4)+CS)=(SHR(BRK1.OFF,4)+BRK1.SEG) THEN 
DO; 
IP = IP - 1; 
; STATEMENT # 409 
832E460001 SUB REGSAV+18H, 1H 


CALL KBS$DISPLAY(@KB$BRK1,DATASFIELD,0); 
; STATEMENT # 410 


2Е80063300 (ЕА АХ,С5:КВВЕК1 
0Е PUSH CS 8:21 
50 PUSH AX HE. 
B000 MOV AL , OH 
50 PUSH AX 8,22 
50 PUSH AX ; 4 
E80300 CALL KBDISPLAY 

GOTO NEXT$COMMAND; 

; STATEMENT # 411 

E9D7FE JMP NEXTCOMMAND 

END; 

END; 


GOTO AFTERSCOMMAND ; 
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415 1 END MONITOR; /* END OF MODULE */ 
EOF 
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CROSS-REFERENCE LISTING 


DEFN 


ADDR 


SIZE 


371 


403 


34 


62 


41 


13 
13 
11 
11 
11 
12 
10 


01A9H 


0138H 


O1DFH 


0000H 


001AH 


00ТЕН 


0006H 


0004H 


0004H 


FHFFFÓH 
FHFFFBH 
FHFFFOH 
ΕΗΕΕΕΊΗ 
FHFFF3H 


0000H 


г" 


ADDRFIELD 


AFTERCOMMAND 


AFTERERROR 


AFTERINTERRUPT 


ARG 


ARG1 


ARG3 


BLANK 


BLANKING 


BLANKING 


BLOCK8089 
BLOCK8089PTR 
BOOT 1 

BOOT2 

BOOTS 

BOOT4 


BP 


08 
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113 119 205 229 272 295 


318 319 334 337 359 370 400 


STRUCTURE BASED(PTR) 


LITERALLY 
16 32 1 
LABEL 
172 414 
LABEL 
369 402 
LABEL 
180 
107 108 1 


STRUCTURE AT 


12 


113 


225 229 257 258 290 296 302 308 310 


STRUCTURE AT 
302 311 


BYTE PARAMETER AUTOMATIC 


22 N 


LITERALLY 
46 108 1 
337 


38 


13 


119 229 295 318 319 334 


BYTE PARAMETER AUTOMATIC 


65 76 


87 


96 


BYTE PARAMETER AUTOMATIC 


42 46 


WORD AT INITIAL ABSOLUTE 


POINTER AT INITIAL ABSOLUTE 


BYTE ARRAY(1) AT INITIAL ABSOLUTE 


WORD ARRAY(1) AT INITIAL ABSOLUTE 


WORD ARRAY(1) AT INITIAL ABSOLUTE 


WORD ARRAY(2) DATA 


LITERALLY 
150 
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183 


15 


10 


0022H 


0058H 


0059H 


005AH 


0008H 


0026H 


0054H 


0006H 


005BH 


0000H 


19 
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BREAKINST 


BRK1 


BRK1FLAG 


BRK1SAVE 


CHAR 


COPYRIGHT 


CORRECTION 


CS 


CSIP 


DATABYTE 


DATAFIELD 


DATUM 


DEFAULTBASE 


DISP 


DISPLAY 


DOUBLE 


DS 
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LITERALLY 


198 


199 


STRUCTURE AT 


194 


BYTE 
201 


BYTE 
197 


BYTE 
60 
100 
214 
275 
343 


407 


366 403 406 


405 


67 τι 73 80 
109 114 124 163 
226 234 236 240 
278 282 291 298 
348 352 374 377 


BYTE ARRAY(19) DATA 


LITERALLY 


185 


LITERALLY 


121 


128 225 290 407 


STRUCTURE AT 


120 121 128 165 166 
217 
LITERALLY 

76 85 94 247 342 
LITERALLY 

ο ὧν 251 239 273 
410 
WORD 

341 342 346 347 


WORD PARAMETER AUTOMATIC 


106 


107 


BYTE ARRAY(4) 


36 
270 


37 38 39 44 
271 272 


BYTE BASED(PTR) ARRAY(1) 
20 


BUILTIN 


84 


LITERALLY 


361 


83 84 97 99 
170 189 195 203 
248 254 265 267 
303 320 326 335 


194 207 208 216 


277 323 341 360 


49 50 54 269 
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400 


14 


62 


41 


262 


183 


183 


133 


174 


0018H 


01BCH 


0006H 


0008H 


0008H 


0709H 


0088H 


0006H 


067DH 


O6ECH 


0004H 


OOOOH 
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2 ENDOFF 


33 


15 


111 


20 


ERROR 


ES 


FALSE 


FIELD 


FIELD 


FIELD 


FL 


GOCOMMAND 


I 


INITINTVECTOR 


INITINTVECTORCODE 


INITINTVECTORCODEPTR 


INPUT 


INTERRUPT 1ENTRY 


INTERRUPT3ENTRY 


INTROUT INEOF FSET 


INTVECTOR 


WORD 

295 296 308 
LABEL 

72 81 101 115 171 
227 241 244 249 252 
299 304 307 321 336 


LITERALLY 
361 


LITERALLY 
366 376 406 


BYTE PARAMETER AUTOMATIC 
15 16 


BYTE PARAMETER AUTOMATIC 
63 69 74 76 85 


BYTE PARAMETER AUTOMATIC 
42 54 


LITERALLY 

159 167 209 218 361 
LITERALLY 
BYTE 

267 270 271 273 280 
BYTE 

19 20 21 43 44 
134 135 145 147 


PROCEDURE ЅТАСК=000ЕН 
363 364 365 


BYTE ARRAY(15) DATA 
183 


WORD DATA 
184 


BUILTIN 
57 60 324 
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196 200 204 215 
266 279 292 297 
344 375 


87 


94 


282 284 


48 


49 


PROCEDURE INTERRUPT(1) STACK=0034H 


363 


PROCEDURE INTERRUPT(3) STACK=0006H 


364 365 


WORD PARAMETER AUTOMATIC 
183 185 


POINTER ARRAY(5) 


96 


50 


51 
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182 


10 


30 


26 


14 


105 


56 


0006H 


O2BEH 


O2A7H 


0037H 


0033H 


001BH 


0251H 


002BH 


07EOH 


0903H 


002FH 


0501H 


039BH 


23 


23 


79 


26 
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INTVECTORPTR 


INWORD 


IP 


KBBLANKADDRF IELD 


KBBLANKDATAFIELD 


KBBLANKS 


KBBRK1 


KBCMNDPMT 


KBCOL 


KBCOM 


KBDATAPORT 


KBDISPLAY 


KBERRMSG 


KBEXAMMEM 


KBEXAMREG 


KBEXEC 


KBGETADDR 


KBGETCHAR 


363 364 


365 
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POINTER PARAMETER AUTOMATIC 


185 184 


BUILTIN 
323 


LITERALLY 


119 120 215 361 


185 


407 409 


PROCEDURE STACK=0010H 


126 191 
372 


223 


263 288 293 300 316 332 


PROCEDURE STACK=0010H 


127 192 206 338 350 373 398 401 


BYTE ARRAY(4) DATA 
28 


BYTE ARRAY(4) DATA 
410 


BYTE ARRAY(4) DATA 


370 


LITERALLY 
97 109 


LITERALLY 
97 124 
275 278 


LITERALLY 
23 60 


PROCEDURE 
28 3e 
370 400 


114 343 


163 
291 


189 214 226 236 240 248 


298 320 335 348 


ЅТАСК=000АН 


39 
410 


54 69 205 272 359 360 


BYTE ARRAY(4) DATA 


400 


PROCEDURE STACK=0030H 


378 387 


PROCEDURE STACK=0024H 


379 


BYTE ARRAY(4) DATA 


205 


PROCEDURE STACK=002CH 
128 194 225 290 302 


PROCEDURE STACK=0002H 
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62 Ο0385ῃ 


314  0A92H 


287 09Е5Н 
34  02D5H 
3530  OAFOH 


41 0315H 


10 004ВН 


7 0027H 


7 OO1FH 


532 


143 


94 


173 


134 


28 


4 


4 
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KBGETEXPR 


KBGO 


KBINITMODE 


KBINITSCAN 


KBINPUT 


KBINRDY 


KBMINUS 


KBMOVE 


KBOUTBYTE 


KBOUTPUT 


KBOUTWORD 


KBPER 


KBPLUS 


KBREG 


KBREGKEY 


KBREGPMT 


KBSIGNON 


70 77 
264 274 
331. 3f1 


PROCEDURE 
108 113 
342 


PROCEDURE 
380 


LITERALLY 
357 


LITERALLY 
358 


PROCEDURE 
382 391 


LITERALLY 
57 


LITERALLY 
99 


PROCEDURE 
384 


PROCEDURE 
75 86 


PROCEDURE 
383 395 


PROCEDURE 
76 87 
337 


LITERALLY 
97 124 
275 278 


LITERALLY 
6, 91 
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88 102 111 
289 294 301 


WORD STACK=0020H 
239 247 277 


STACK=0034H 


STACK=0024H 


STACK=0030H 
STACK=0012H 
95 122 232 


STACK=0024H 


STACK=0016H 
96 119 229 


170 195 203 
282 303 326 


99 


BYTE ARRAY(28) DATA 


270 271 


LITERALLY 
67 


BYTE ARRAY(4) DATA 
69 


BYTE ARRAY(4) DATA 


359 


123 193 224 233 
317 325 335 357 


295 318 334 341 


324 


231 27/5 319 323 


234 240 248 254 
352 
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212 O7B9H 39 KBSINGLESTEP PROCEDURE STACK=0034H 
381 
7 KBSTATPORT LITERALLY 
17 18 57 59 357 358 
118 0550H 101 KBUPDATEIP PROCEDURE STACK=0030H 
162 188 213 
7 0023H 4  KBVERSION BYTE ARRAY(4) DATA 
360 
5 0061H 1 LASTCOMMAND BYTE 
160 374 
7 Ο03ΒΗ 16 LED BYTE ARRAY(16) DATA 
37 38 44 
505 ΟΑΡΑΗ LOOP LABEL 
312 
340 OB28H LOOP LABEL 
353 
320 ОАВ/Н LOOP LABEL 
328 
LOW BUILTIN 
75 86 395 250 251 347 
9 0000H 1 ΜΕΜΟΚΥΑΚΩΊ BYTE BASED (MEMORYARG1PTR) 
232 250 251 305 306 
9 Ο01ΑΗ 4 MEMORYARG1PTR POINTER 
9 231 232 242 243 250 251 305 306 
9 0000H 1 MEMORYARG3 BYTE BASED(MEMORYARGS3PTR) 
305 306 
9 OO1EH 4 | MEMORYARGSPTR POINTER 
9 305 306 
9 0000H 1 MEMORYBRK1 BYTE BASED(MEMORYBRKTPTR) 
197 198 199 405 
9 0022H 4 МЕМОКҮВЕКІРТЕ POINTER 
9 197 198 199 405 
9  0000H 1 MEMORYCSIP BYTE BASED(MEMORYCSIPPTR) 
122 
9 0026H 4 MEMORYCSIPPTR POINTER 
9 122 
9 0000H 2 MEMORYUSERSTACK WORD BASED(MEMORYUSERSTACKPTR ) 


132 135 147 150 
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9 


370 


106 


63 


331 


315 


105 


002AH 


0000H 


009CH 
0016H 


0014H 


0128H 


0000H 


0000H 


0000H 


0000H 


0000H 


0000H 


0000H 


0063H 


0056H 


0052H 


0004H 
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4 MEMORYUSERSTACKPTR 


437 


MEMORYWORDARG1 


MONITOR 


MONITORSTACKBASE 


MONITORSTACKPTR 


NEXTCOMMAND 


NOBLANK 


OFF 


OFF 


OFF 


OFF 


OFF 


OFF 


OFF 


OPER 


OUTPUT 


OUTWORD 


PORT 


PORT 


PROMPTS 


POINTER 
9 132 135 
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147 150 


WORD BASED(MEMORYARGTPTR) 


231 242 243 


PROCEDURE STACK=0050H 


WORD 
157 178 367 


WORD 
156 177 368 


LABEL 
399 411 


LITERALLY 
231 239 247 


273 277 325 341 342 


WORD MEMBER(USERSTACK ) 


133 136 139 


144 146 149 151 154 


WORD MEMBER(CSIP) 


120 165 207 


216 


WORD MEMBER(BRK1) 


407 


WORD MEMBER(ARG3) 


311 


WORD MEMBER(ARG1) 


229 257 258 


296 308 310 


WORD MEMBER( VECTOR) 


185 


WORD MEMBER(ARG) 


108 112 113 


BYTE 
64 91 100 


BUILTIN 
17 18 23 


BUILTIN 
346 


WORD 
334 337 346 


WORD 
518 319 323 


59 347 357 358 


347 


324 


BYTE PARAMETER AUTOMATIC 


175 
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62 


41 


34 


30 


26 


14 


105 


14 


10 


10 


141 


142 


142 


262 


63 


131 


0006H 


0006H 


0004H 


0004H 


0004H 


0004H 


0008H 


0008H 


0067H 


002ЕН 


0605H 


0072H 


0004H 


0050H 


004АН 


05B5H 


0002H 


0002H 


11 


28 


95 


22 


80 
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PROMPTS 


PROMPTS 


PROMPTS 


PROMPTS 


PROMPTS 


PROMPTS 


PTR 


PTR 


REGORD 


REGSAV 


RESTOREEXECUTE 


RESTOREEXECUTECODE 


RESTOREEXECUTECODEPTR 


SAVE 


SAVE 


SAVEREGISTERS 


SEG 


SEG 


106 108 113 
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BYTE PARAMETER AUTOMATIC 


65 69 75 76 


86 87 95 96 


BYTE PARAMETER AUTOMATIC 


42 


BYTE PARAMETER AUTOMATIC 


35 39 


BYTE PARAMETER AUTOMATIC 


31 


BYTE PARAMETER AUTOMATIC 


27 28 


BYTE PARAMETER AUTOMATIC 


15 


POINTER PARAMETER AUTOMATIC 


106 107 108 112 


113 


POINTER PARAMETER AUTOMATIC 


15 


BYTE ARRAY(11) DATA 
135 147 


WORD ARRAY(14) 

73 119 120 121 
143 144 147 150 
208 209 216 217 
361 362 407 409 


PROCEDURE STACK=0008H 
161 168 210 219 


BYTE ARRAY(22) DATA 
142 

WORD DATA 
151 


WORD 
277 280 


WORD 
15 D 15 Ww 


PROCEDURE STACK=0002H 
158 179 


WORD MEMBER(USERSTACK 
138 143 151 155 


WORD MEMBER(CSIP) 


128 132 135 138 139 
159 165 166 167 207 
218 225 273 280 290 


8, 86 87 92 95 


) 
176 
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183 


106 


10 


10 


11 


15 


183 


0002H 


0002H 
0002H 


0002H 


0002H 


0062H 


002AH 


0000H 


1 
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SEG 


SEG 


SEG 


SEG 


SEG 


SHL 


SHR 


SP 


SS 


SSCOMMAND 


STACKBASE 


STACKPTR 


STARTADDR 


STEPTRAP 


TRUE 


USERINITSP 


4  USERSTACK 


4 VECTOR 


PAGE 53 


121 166 194 208 217 


WORD MEMBER(BRK1) 


407 


WORD MEMBER(ARG3) 


WORD MEMBER(ARG1) 


302 


WORD MEMBER( VECTOR) 


184 


WORD MEMBER(ARG) 


107 112 


BUILTIN 
84 


BUILTIN 


37 44 407 


LITERALLY 
144 


LITERALLY 
143 361 


LITERALLY 
160 


BUILTIN 
155 457 


BUILTIN 
154 156 


LITERALLY 
11 12 


LITERALLY 
159 167 


BYTE 
20 22 


LITERALLY 
66 201 


LITERALLY 
362 


176 


175 


209 


23 


228 


STRUCTURE AT 


133 136 
154 155 


138 
175 


178 


177 


218 


268 


139 
176 


367 


368 


386 390 394 


143 144 146 149 


STRUCTURE BASED(INTVECTORPTR) 


151 
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222 004ЕН 2 W 


65 004СН 2 W 


41 ΟΟΟΑΗ 2 W 


5 0060H 1 WORDMODE 


MODULE INFORMATION: 


CODE AREA SIZE = 0B82H 2946р 
CONSTANT AREA SIZE = OOOOH OD 
VARIABLE AREA SIZE = 0065H 101D 
MAXIMUM STACK SIZE = 0050H 80D 


865 LINES READ 
0 PROGRAM ERROR(S) 


END OF PL/M-86 COMPILATION 


184 


WORD 
239 


WORD 
65 


WORD 
42 


BYTE 
230 
394 


185 


242 243 247 250 


92 7$ 95 96 


PARAMETER AUTOMATIC 


237 256 322 340 
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251 


98 


345 376 386 390 
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PL/M-86 SOURCE LISTING 
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ISIS- 1I PL/M-86 V1.1 COMPILATION OF MODULE MONITOR 
OBJECT MODULE PLACED IN :F1:SERIAL.OBJ 
COMPILER INVOKED BY: РІМ86 :F1:SERIAL.PLM LARGE OPTIMIZE(2) PAGEWIDTH(95) 


$TITLE('SDK86 SERIAL MONITOR') 
$NOINTVECTOR 


/* * e e e e e e ve e e * e de de e e e * de * de de * e ἐς de de e e e * de e de He de de de e e de e de e de dfe de de de e e de he e de dede dede * jede * * 
* e fe fe e fe e e e * e * e He * * e dee e * dee e e k e e e e fee e e e e * e de e e e e de e e e de dee de e de e e e de de de dede dede $e 


SDK-86 MONITOR, V1.2 
06 AUGUST 1979 


(C) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. NO PART 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, SANTA 
CLARA, CALIFORNIA, 95051. 


he Se e e * e Ye e ee * * * k ee k k fe k e de e de je de e de k de ἐς dee e e de k de de e de e e de de ἐς fe e e e ee ee e de de dede de e e dee 
Fe fe se e de e e e e e e e He He He He e e fe fe e * fe e e e * k fe ee e * e e k k de e ede e dede e dede dede de ede e k k k kk k k dede k k ke 


ABSTRACT 


THIS PROGRAM IS THE ROM BASED SERIAL MONITOR FOR THE SDK-86. IT 
PROVIDES THE USER WITH A MODERATE LEVEL OF CAPABLILITY TO 
EXAMINE/MODIFY MEMORY AND REGISTERS, CONTROL PROGRAM EXECUTION, 
AND LOAD/SAVE PROGRAMS. 


ENVIRONMENT 


THE SDK SERIAL MONITOR COMMUNICATES WITH THE USER VIA AN INTERACTIVE 
TERMINAL (TTY,CRT) ATTACHED TO THE SERIAL PORT. 


PROGRAM ORGANIZATION 


THE PROGRAM IS DIVIDED INTO 1 DATA AND 2 CODE MODULES: 


1. DATA DECLARATION MODULE. GLOBAL DATA DECLARATIONS. 
2. COMMON ROUTINES. LOWER LEVEL PROCEDURES 
3. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 


CALLING GRAPH 


>>COMMAND DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
COMMON ROUTINES 


GLOBAL DATA STRUCTURES 


THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) IN A 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 

AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 

POINTERS TO THE SDK-86 2**20 ADDRESS SPACE ARE IMPLEMENTED WITH 
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POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 
e i 
1 MONITOR :DO; /* BEGINNING OF MODULE */ 


/* * e e de de e e e e k k e e e k kt e e k e de e k e ede e e e de ee e de e e e e e k e e ee de dee e dede de e k de dede ee e de dede dee 
* e e de de e e e e de e e e e e e ehe e e de e e e de k k k de de ee de de de k de de k k ede dede dede e dede de k k de e dee de dede de dede dee 


GLOBAL DATA DECLARATIONS MODULE 


THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 
LITERALS (EQUATES). 


MODULE ORGAINIZATION 


THE MODULE IS DIVIDED INTO 5 SECTIONS: 


1. UTILITY SECTION GLOBAL FLAGS,VARIBLES, EQUATES 

2. 1/0 SECTION 1/0 PORTS,MASKS,AND SPECIAL CHARS 
3. MEMORY ARGUMENTS SECTIONS STRUCTURES FOR POINTERS 

4. REGISTER SECTION USER REGISTER SAVE AREA 

5. BOOT AND 8089 SECTION BOOTSTRAP AND 8089 DESCRIPTOR 


*/ 
£88 ыы He He He He ыы 


* UTILITY SECTION * 


* ik kk Ye e He e k ke К e e f 


2 1 DECLARE 

ІМТФУЕСТОК(5) POINTER; /* INTERRUPT VECTORS */ 
5 1 DECLARE 

MONITORSSTACKPTR WORD, 

MONITOR$STACKBASE WORD; 


4 1 DECLARE 
COPYRIGHT(*) BYTE DATA ('(C) 1978 INTEL CORP'); 

5 1 DECLARE 
BRK1$FLAG BYTE, /* TRUE IF BREAK SET */ 
BRK1$SAVE BYTE, /* INST BREAK SAVE */ 
CHAR BYTE, /* ONE CHAR LOOK AHEAD */ 
CHECK$SUM BYTE, /* PAPER TAPE CHECKSUM */ 
I BYTE, /* INDEX */ 
ENDSOFF WORD, /* END OFFSET ADDRESS */ 
WORD$MODE BYTE, /* WORD MODE FLAG */ 
LASTSCOMMAND BYTE; /* LAST COMMAND SAVE */ 

6 1 DECLARE 
TRUE LITERALLY 'OFFH', 
FALSE LITERALLY 'OOOH', 
BREAKSINST LITERALLY 'OCCH', /* BREAKPOINT INST */ 
STEPSTRAP LITERALLY '0100H', /* SS TRAP FLAG MASK */ 
USERSINIT$SP LITERALLY '100H', /* USER STACK INITIAL */ 
СОФСОММАМО LITERALLY '2', /* GO COMMAND CODE */ 
55%СОММАМО LITERALLY '3', /* SINGLE STEP CODE */ 
STANDARDSLEN LITERALLY '16', /* PAPER TAPE DATA REC LEN */ 
MAXSDELAY LITERALLY '10000'; /* DELAY FOR PAPER TAPE */ 


T 3 DECLARE 
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10 


11 


1 


уж“ 
ж 
desee 


DECLARE 


DECLARE 


DECLARE 


/*** 
* 
LEE E 


DECLARE 
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BYTE DATA (5BH,86H,00H,00H, 7DH, 7FH,00H,00H), 
/* и 2 1. 6 8 и */ 


SIOSBREAKSMSG(*) BYTE DATA ("ВЕ ',0), 


KB$SIGNON(*) 


SIOS$SIGNON(*) BYTE DATA (ODH,OAH,'SDK-86 MONITOR, V1.2',0), 
ASCII(*) BYTE DATA ('0123456789ABCDEF'), 

SIOSCMND(*) BYTE DATA ('SXGNMDIORW'); 

ХА ЖКААЖ ААЖ 


1/0 DECLARATIONS SECTION  * 


Fe He e He k k kk k k ok He He He He e koko ККК Ое УС f 


/* 8251 USART */ 
SIOSSTATSPORT LITERALLY 'OFFF2H', /* STATUS INPUT PORT */ 
SIOSDATASPORT LITERALLY 'OFFFOH', /* DATA INPUT PORT */ 
SIO$8251$RESET LITERALLY ‘'O65H', /* RESET COMMAND */ 
SI0$8251$MODE LITERALLY 'OCFH', /* ASYNC MODE */ 
SIO$8251$CMND LITERALLY X '025H', /" DIR OFF *J 
SIO$8251$DTR$ON LITERALLY 'O27H', /* SAME AS CMND BUT DTR ON */ 
SIOSDSRDY LITERALLY '80H', /* DATA SET READY */ 
SIOSRXRDY LITERALLY '02Н', /* RECEIVE DATA READY */ 
SIOSTXRDY LITERALLY ШІН; /* XMIT BUFFER EMPTY */ 
КВ%5ТАТФРОКТ LITERALLY 'OFFEAH', /* STATUS/COMMAND PORT */ 
KBSDATASPORT LITERALLY 'OFFE8H', /* DATA PORT "y 
KB$INIT$MODE LITERALLY 'OOH', /* 8 B-BIT, LEFT ENTRY, 

ENCODE, 2 KEY LOCKOUT */ 

KBSINITSSCAN LITERALLY '39H'; /* 10MS SCAN RATE ”/ 
А5СК LITERALLY “ООН”, /* CARRIAGE RETURN */ 
ASLF LITERALLY 'OAH', /* LINE FEED "7 
ASBL LITERALLY '20H!; /* BLANK OR SPACE */ 
ye je t k kok e e kok e he He He He He e e He He ke de He de de e e 


MEMORY ARGUMENT SECTION * 


* k k k He k k k k k k k k k k He He sk sk e k He He He Me f 


MEMORYSARGISPTR POINTER, /* ARGUMENT 1 */ 
ARG1 STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEMORYSARGISPTR), 
MEMORYSARGT BASED MEMORYSARGTSPTR BYTE, 
MEMORYSWORDSARG1 BASED MEMORYSARG1$PTR WORD, 
MEMORYSARG3$PTR POINTER, /* ARGUMENT 3 */ 
ARG3 STRUCTURE (OFF WORD, SEG WORD) 

AT (@MEMORYSARG3$PTR), 
MEMORYSARGS BASED MEMORYSARGSSPTR BYTE, 
ΜΕΜΟΒΥΦΒΚΚΊΦΡΤΝ POINTER, /* BREAKPOINT 1 */ 
BRK1 STRUCTURE (OFF WORD, SEG WORD) 

AT (ΩΜΕΜΟΒΥΦΒΚΚΊΦΡΤΝ), 
MEMORYSBRKT BASED MEMORYSBRKTSPTR BYTE, 
MEMORYSCSIPSPTR POINTER, /* CS & IP WORD */ 
CSIP STRUCTURE (OFF WORD, SEG WORD) 

АТ (@MEMORYSCSIPSPTR), 
MEMORYSCSIP BASED ΜΕΜΟΒΥΦΟΘΙΡΦΡΤΝ BYTE, 





PL/M-86 COMPILER SDK86 SERIAL MONITOR PAGE 4 


MEMORYSUSERSTACKSPTR POINTER, 
USERSTACK STRUCTURE (OFF WORD, SEG WORD) 
AT (G9MEMORYSUSERSTACKSPTR) , 
MEMORYSUSERSTACK BASED MEMORYSUSERSTACKSPTR WORD; 


/ k'k'k'k'k k k k k k kok k kk He kok k sk k k 


* REGISTER SECTION * 


SFe e e He He he kk ko koko e k ko kekok ΛΑ ΛΑ / 


12 1 DECLARE 

REG(*) BYTE DATA /* REGISTER NAMES */ 
('AXBXCXDXSPBPSIDICSDSSSESIPFL'), 

REG$INDEX WORD, 

REG$SAV( 14) WORD, /* USER'S SAVED REGS */ 

REG$ORD(*) BYTE DATA 
(7,6,1,3,0,0,9,11,12,8,13), 

SP LITERALLY 'REG$SAV( 4)', 

BP LITERALLY 'REG$SAV( 5)', 

CS LITERALLY 'REG$SAV( 8)', 

DS LITERALLY 'REG$SAV( 9)', 

SS LITERALLY 'REG$SAV(10)', 

ES LITERALLY 'REG$SAV(11)', 

IP LITERALLY 'REG$SAV(12)', 

FL LITERALLY 'REG$SAV(13)'; 


[RERRERERRERREREEKEREREREREERERERERERE 


* BOOTSTRAP JUMP AND 8089 VECTOR * 


Fe e He He he he k k kk kok kok k ke koko ko kok КККК КККК КККК f 


/* THIS BOOT CONSISTS OF A LONG JUMP TO THE BEGINNING OF THE MONITOR 
AT FF00+XXXX WHERE XXXX IS THE STARTING ADDRESS OFFSET (IP) AND 
MUST BE DETERMINED AFTER EACH COMPILE. */ 
12 1 DECLARE 

STARTSADDR LITERALLY '00AB8H', /* STARTING ADDRESS */ 
BOOT1(*) BYTE АТ (OFFFFOH) DATA (OEAH), /% LONG JUMP OPCODE */ 
BOOT2(*) WORD AT (OFFFF1H) DATA (STARTSADDR), 
BOOT3(*) WORD AT (OFFFF3H) DATA (OFFOOH); /* SEGMENT ADDRESS! */ 


/* THIS TWO-WORD DATA IS A JUMP TO THE STARTING ADDRESS AND IS LOCATED 
AT THE FIRST LOCATION OF ROM (NO OTHER DATA OR CONSTANT DECLARATIONS 
MAY PRECEDE IT). THE JUMP IS ACTUALLY TO (START-ADDR)-4 SINCE THE 
INSTRUCTION IS A RELATIVE JUMP OF LENGTH 3. */ 
14 1 DECLARE 
BOOT4(*) МОВО DATA (OE990H,STARTSADDR-4); /% NOP,JMP START-ADDR */ 


/* THIS BLOCK OF ROM AT FFFF6-FFFFA IS INITIALIZED FOR THE 8089 
DEVICE AND POINTS TO A BLOCK OF RAM AT 0100H. */ 
15. 1 DECLARE 
BLOCK$8089 WORD AT (OFFFF6H) DATA (00001H), 
BLOCK$8089$PTR POINTER AT (OFFFF8H) DATA (00100H); 


/ 'k'kk k k k sk sk k sk sk sk Yk He sk sk Yk Yk sk He sk sk sk He He He He e e Fe kok 


* FILL DECLARATIONS SECTION * 


* K k k e k sk He Ae kok ko k sk k k e e He s sk sk k k He А А e k ook f 
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/* THESE DECLARATIONS DEFINE FILL CHARACTERS FOR ALL UNUSED 
LOCATIONS IN THE ROM ADDRESS SPACE. ANY MODIFICATION TO THE CODE 
THAT CHANGES THE USED LOCATIONS IN THE ROM REQUIRES 
MODIFICATION OF THIS SECTION. */ 


16 1 DECLARE 


F LITERALLY 'OFFH', 

FILL1(*) BYTE AT (OFFFDBH) DATA (F,F,F,F, 
FILL2(*) BYTE AT (OFFFEOH) DATA (F,F,F,F, 
FILLS(*) BYTE AT (OFFFF5H) DATA (F), 
FILLA(*) BYTE AT (OFFFFCH) DATA (F,F,F,F); 


FJ), 
F,F,F,F,F,F,F,F,F,F,F,F), 


/* * e e e ee e e e e dee k k k k k dee efe fe dede kt k dee ἐς k kk kk k kk KO e dee dee defe dede de ede jede K K K OR KO R K K RO KC 
* e de de e e e de e e e e e e e fe e e de e e e e efe dee fe dee de dee ee e ee ἐς ehe dee de dede de ee ee ee ἐς dede ἐς dee ἐς dede e dee 


COMMON PROCEDURES 


THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHER 
LEVEL ROUTINES. 


MODULE ORGANIZATION 


THIS MODULE IS DIVIDED INTO 4 SECTIONS AS FOLLOWS: 
1. BASIC I/O SECTION 


SIOSCHARSRDY INPUT CHARACTER READY 
SIOSCHECKSCONTROLSCHAR CHECK FOR CONTROL CHARACTER 
SIOSOUTSCHAR OUTPUT CHARACTER 
SIOSGETSCHAR INPUT A CHARACTER 
SIOSOUTSBYTE OUTPUT A BYTE IN HEX 
SIOSOUT$WORD OUTPUT A WORD IN HEX 
SIOSOUTSBLANK OUTPUT A SINGLE BLANK 
SIOSOUTSSTRING OUTPUT A STRING 
SIOSOUTSHEADER OUTPUT A PAPER TAPE HEADER 

2. UTILITY ROUTINES SECTION 
SIO$VAL IDSHEX TEST FOR VALID HEX CHAR 
SIOSHEX CONVERT TO HEX FROM ASCII 
SIOSVALIDSREGSFIRST TEST FOR VALID REGISTER FIRST CHAR 
SIOSVALIDSREG TEST FOR VALID REGISTER NAME 
SIOSCRLF OUTPUTS A CR AND LF 
SIOSTESTSWORDSMODE TEST FOR А 'W' IN COMMAND 
SIOS$SCANSBLANK SCANS FOR OPTIONAL BLANK 

3. ARGUMENT EXPRESSION EVALUATION SECTION 
SIOSGET$WORD GET AN WORD EXPRESSION 
SIOSGETSADDR GET AN ADDRESS EXPRESSION 
SIOSUPDATESIP OPTIONAL UPDATE OF CS:IP 

4. PAPER TAPE READ SECTION 
SIOSREADSCHAR READ CHAR FROM TTY READER 
SIOSREADSBYTE READ A BYTE 
SIOSREADSWORD READ A WORD 

5. INTERRUPT AND RESTORE/EXECUTE ROUTINES 
SAVESREGISTERS SAVES USER REGISTERS 
RESTORESEXECUTE RESTORE MACHINE STATE AND EXEC 


INTERRUPT 1SENTRY INTERRUPT ROUTINE FOR SINGLE STEP 
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INTERRUPT3SENTRY INTERRUPT ROUTINE FOR GO 
INITSINTSVECTOR INITIALIZES INTERRRUPT VECTORS 
"y 


V >e te e de he de Ae he ee к de he he He e de de He He e de he ke 
* BASIC I/O SECTION * 


Ae he He He he e Fe ыы ыы ыы; 


17 1 SIO$CHAR$RDY: 
/* TESTS FOR INPUT CHARACTER PENDING BY READING THE STATUS PORT 
AND MASKING WITH SIO$RXRDY(READ DATA READY). RETURNS TRUE IF 
NOT EMPTY(CHAR PENDING) AND FALSE IF NO CHAR PENDING */ 
PROCEDURE BYTE; 


END; 


18 2 IF CINPUTC(SIO$SSTATSPORT) AND SIOSRXRDY)=0 THEN RETURN FALSE; 
20 2 RETURN TRUE; 
el c; END; 
22 1 SIOSCHECKSCONTROLSCHAR: 
/* THIS ROUTINE CHECKS IF A CONTROL CHARACTER HAS BEEN INPUT TO 
THE SERIAL PORT. AFTER A CONTROL-S IT WAITS FOR A CONTROL-Q BEFORE 
RETURNING TO THE CALLER. A CONTROL-C CAUSES A JUMP TO THE ERROR 
ROUTINE. */ 
PROCEDURE; 
23 2 CHAR = INPUT(SIO$DATA$PORT) AND 07ҒН; 
24 2 IF CHAR=13H THEN /* CONTROL-S ? */ 
25 2 DO WHILE CHAR<>11H; /* CONTROL-Q %/ 
eo 3 IF SIOSCHARSRDY THEN 
27 3 00; 
28 4 CHAR - INPUT(SIOSDATASPORT) AND 07ҒН; 
29 4 IF CHAR=03H THEN GOTO ERROR; 
31 4 END; 
3 
53 Ф ELSE IF CHAR = O3H THEN GOTO ERROR; 
END SIOSCHECKSCONTROLSCHAR; 
36 1 SIOSOUTSCHAR : 
/* THIS ROUTINE OUTPUTS THE INPUT PARAMETER TO THE USART OUTPUT 
PORT WHEN USART IS READY FOR OUTPUT (XMIT BUFFER EMPTY). */ 
PROCEDURE(C); 
37 2 DECLARE C BYTE; 
38 2 IF SIOSCHARSRDY THEN CALL SIOSCHECKSCONTROLSCHAR; 
40 2 DO WHILE (INPUT(SIOSSTATS$PORT) AND SIOSTXRDY)z0; END; 
42 OUTPUT(SIOSDATASPORT) = C; 
43 2 END; 
44 1 SIOSGETSCHAR: 
/* THIS ROUTINE INPUTS A CHARACTER FROM THE INPUT PORT AND RETURNS 
WITH IT IN THE GLOBAL 'CHAR'. THE CHARACTER IS ECHOED TO THE 
OUTPUT PORT IF PRINTABLE. */ 
PROCEDURE ; 
45 2 DO WHILE (INPUT(SIOSSTATS$PORT) AND SIOSRXRDY)z0; END; 
47 2 CHAR = INPUT(SIOSDATASPORT) AND 07ҒН; 
48 2 IF CHAR>=ASBL THEN CALL SIO$OUTSCHAR(CHAR); 
50 2 END; 
51 1 SIOSOUT$BYTE: 


/* THIS ROUTINE OUTPUTS THE SINGLE INPUT PARAMETER TO THE USART 
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IN ASCII HEXADECIMAL FORMAT. */ 
PROCEDURE (B); 


52 2 DECLARE B BYTE; 
53. 2 CALL SIOSOUTSCHARC(ASCII(SHR(B,4) AND OFH)); 
54 2 CALL SIOSOUTSCHAR(ASCII(B AND OFH)); 
55 2 CHECK$SUM = CHECKSSUM - B; 
56 2 END; 
57 1 SIOSOUTSWORD : 
/* THIS ROUTINE OUTPUTS THE INPUT PARAMETER AS 4 ASCII HEXADECIMAL 
CHARACTERS TO THE USART OUTPUT PORT. */ 
PROCEDURE (W) ; 
58 2 DECLARE W WORD; 
59 2 CALL SIOSOUTSBYTECHIGH(W)); 
60 2 CALL SIOSOUTSBYTE(LOW(W)); 
61 2 END; 
62 1 SIOSOUTSBLANK: 
/* THIS ROUTINE OUTPUTS ONE BLANK. */ 
PROCEDURE; 
65 2 CALL SIOSOUTSCHAR(CASBL); 
64 2 END; 
65 1 SIOSOUTSSTRING: 
/* OUTPUTS A STRING POINTED TO BY THE FIRST PARM. */ 
PROCEDURE (PTR); 
66 2 DECLARE PTR POINTER, STR BASED PTR (1) BYTE; 
67 2 I = 0; 
68 2 DO WHILE STR(I)<>0; 
69 3 CALL SIOSOUTSCHAR(STR(I)); 
70 3 I = 1 +1; 
ТІ. 3 END; 
ΤΕ . ϐ END; 
75 1 SIOSOUTSHEADER: 
/* THIS ROUTINE OUTPUTS THE PAPER TAPE HEADER CONSISTING OF ':' 
FOLLOWED BY THE RECORD LENGTH, LOAD ADDRESS, AND THE RECORD TYPE. 
IT INITIALIZES THE CHECKSUM TO ZERO. */ 
PROCEDURE (LENGTH, LOADSADDR , RECSTYPE); 
74 2 DECLARE (LENGTH,RECSTYPE) BYTE, LOADSADDR WORD; 
f ë CALL SIOSOUTSCHAR(':'); 
76 2 CHECK$SUM = 0; 
f ë CALL SIO$OUT$BYTE(LENGTH); 
78 2 CALL SIO$OUT$WORD(LOAD$ADDR); 
79 2 CALL 510ФО/ТФВҮТЕ(КЕСФТҮРЕ); 
80 2 END; 
81 1 SIO$8251$SETTLING$DELAY: 
/* THIS DELAY ROUTINE ALLOWS THE USART SUFFICIENT TIME 
TO SETTLE AFTER WRITE OPERATIONS. */ 
PROCEDURE ; 
82 2 I = SHRCOFFH,OFFH); 
83 2 END; 


ымыны ыы He He He He He He He 


* UTILITY ROUTINES SECTION * 
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Ae e e e he Ae e he vhe e he Ae e she e he he e e e e e Ae Ae He He Fe He He de He f 


δι 1 SIO$VALID$HEX: 
/* THIS ROUTINE TESTS IF THE INPUT PARM IS A VALID ASCII HEX DIGIT 
AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO AND FALSE 
IF NOT. */ 
PROCEDURE (H) BYTE; 


85 2 DECLARE H BYTE; 
86 2 DO І-0 TO LAST(ASCII); 
87 3 IF Н-А5СІІ(І) THEN RETURN TRUE; 
89 3 END; 
90 2 RETURN FALSE; 
91 2 END; 
92 1 SIOSHEX: 
/* THIS ROUTINE CONVERTS THE INPUT PARM FROM ASCII TO ITS BINARY 
EQUIVALENT AND RETURNS IT AS THE VALUE OF THE PROCEDURE. NO CHECK 
IS MADE FOR INPUT VALIDITY. */ 
PROCEDURE(C) WORD; 
93 2 DECLARE C BYTE; 
94 2 IF С<-!9! THEN RETURN DOUBLE(C- 30H); 
96 2 ELSE RETURN DOUBLE(C-37H); 
ο 2 END; 
98 1 SIOSVALIDSREGSFIRST: 
/* THIS ROUTINE CHECKS IF 'CHAR' IS A VALID FIRST LETTER OF A REGISTER 
NAME AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO. */ 
PROCEDURE BYTE; 
99 2 DO 1=0 TO 26 BY 2; 
100 3 IF CHAR-REG(I) THEN RETURN TRUE; 
102 3 END; 
103 2 RETURN FALSE; 
104 2 END; 
105 1 SIOSVALIDSREG: 
/* THIS ROUTINE CHECKS IF THE TWO INPUT PARMS TAKEN TOGETHER FORM 
A VALID REGISTER NAME. IT SEARCHES THE REGISTER TABLE AND IF A 
MATCH IS FOUND, THE GLOBAL 'REGS$INDEX' IS SET TO THE INDEX OF THE 
VALID REGISTER AND THE PROCEDURE RETURNS TRUE. IF NO MATCH THE 
PROCEDURE RETURNS FALSE AND REGSINDEX IS UNDEFINED. */ 
PROCEDURE (C1,C2) BYTE; 
106 2 DECLARE (C1,C2) BYTE; 
107 2 DO REGSINDEX-O TO 13; 
108 3 IF C1-:REG(REGS$INDEX*2) AND C2-REG(REGSINDEX*2*1) THEN 
109 3 RETURN TRUE; 
110 3 END; 
111 2 RETURN FALSE; 
112 2 END; 
113 1 SIOSCRLF: 
/* THIS ROUTINE OUTPUTS A CR AND LF TO THE OUTPUT PORT. */ 
PROCEDURE; 
114 2 CALL SIOSOUTSCHAR(ASCR); 
115 2 CALL SIOSOUTSCHAR(ASLF); 
116 2 END; 
117 1 SIOSTESTSWORDSMODE : 
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/* THIS PROCEDURE TESTS FOR A 'W' FOLLOWING THE COMMAND AND IF SO 
SETS THE FLAG 'WORDSMODE TO TRUE OR FALSE OTHERWISE. SCANS OFF 
OPTIONAL BLANK FOLLOWING COMMAND. */ 

PROCEDURE ; 


118 2 WORD$MODE = FALSE; 
119 2 CALL SIOSGET$CHAR; 
120 2 IF CHAR='W' THEN 
121 2 DO; 
122 3 WORD$MODE = TRUE; 
105 3 CALL SIOSGETSCHAR; 
124 3 END; 
125 2 IF CHAR=ASBL THEN 
126 2 CALL SIO$SGETSCHAR; 
127 2 END; 
128 1 SIOSSCANSBLANK: 
/* THIS ROUTINE IS CALLED AFTER A COMMAND LETTER TO SCAN OFF THE 
OPTIONAL BLANK. */ 
PROCEDURE; 
129 2 CALL SIOSGETSCHAR; 
130 2 IF CHAR=ASBL THEN 
131 2 CALL SIOSGETSCHAR; 
132 2 END; 
/ κ κ αὶ αὶ ας αὶ ἐς k koko oko kok Fe e ko kok ἐς He He kf k koko k kok He e He He He Fe Fe He κ κ kok k 
* ARGUMENT EXPRESSION EVALUATOR SECTION * 
He k k k s sk k ыы sk k ok kok kok ko He He koko sk k koko ok kok k kok Fe He Te He We He f 
133 1 SIO$GET$WORD: 
/* THIS ROUTINE READS CHARS FROM THE INPUT PORT AND EVALUATES 
AN EXPRESSION CONSISTING OF !%-! AND OPERANDS OF HEX NUMBERS 
AND REGISTER NAMES. */ 
PROCEDURE WORD; 
134 2 DECLARE (SAVE,W) WORD, (OPER,T) BYTE; 
135 2 OPER = !+!, 
136 2 W = 0; 
137 2 DO WHILE TRUE; 
138 3 T = CHAR; 
139 3 SAVE = 0; 
140 3 IF SIOSVALIDSREGSFIRST THEN 
141 3 DO; 
142 4 CALL SIOSGETSCHAR; 
145 4 IF SIOS$VALIDS$REG(T,CHAR) THEN 
144 4 DO; 
145 2 SAVE = REGSSAV(REGSINDEX); 
146 5 CALL SIOSGETSCHAR; 
147 5 GOTO EVAL; 
148 5 END; 
ELSE 
149 4 SAVE = SIOSHEX(T); 
150 4 END; 
151 3 IF NOTCSIOSVALIDSHEX(T)) THEN GOTO ERROR; 
195 3 DO WHILE SIOSVALIDSHEX(CHAR); 
154 4 SAVE = SHL(SAVE,4) + SIOSHEX(CHAR); 
155 4 CALL SIOSGETSCHAR; 
156 8 END; 





PL/M-86 COMPILER SDK86 SERIAL MONITOR PAGE 10 


iw 3 EVAL: IF OPER='+' THEN 
158 3 W = W + SAVE; 
ELSE 
159 3 М = М - SAVE; 
160 3 IF CHARZASCR OR CHARz':' OR CHAR=',' THEN 
161 3 RETURN W; 
162 3 IF СНАК-!%! OR CHARz'-' THEN 
163 3 OPER = CHAR; 
ELSE 
164 3 GOTO ERROR; 
165 5 CALL SIOSGETSCHAR; 
166 3 END; 
167 2 END; 
168 1 SIOSGETSADDR: 
/* THIS ROUTINE ACCEPTS A VALID ADDRESS EXPRESSION CONSISTING 
OF AN OPTIONAL <SEG>: AND AN DISPLACEMENT. */ 
PROCEDURE (PTR, DEFAULTS$BASE); 
169 2 DECLARE PTR POINTER, DEFAULTS$BASE WORD, 
ARG BASED PTR STRUCTURE (OFF WORD, SEG WORD); 
170 2 ARG.SEG = DEFAULTSBASE; 
171 2 ARG.OFF = SIOSGET$WORD; 
172 2 IF CHAR=':' THEN 
173 2 00; 
174 3 CALL SIOSGETSCHAR; 
15 3 ARG.SEG = ARG.OFF; 
176 3 ARG.OFF = SIOSGETSWORD; 
177 3 IF CHAR=':' THEN GOTO ERROR; 
179 3 END; 
180 2 END; 
181 1 SIOSUPDATESIP: 
/* THIS PROCEDURE IS CALLED BY SINGLE STEP AND GO TO OUTPUT THE CURRENT 
IP AND INSTRUCTION BYTE AND OPEN THE IP FOR INPUT. */ 
PROCEDURE ; 
182 2 CALL SIOSOUTSBLANK; 
183 2 CALL SIOSOUTSWORD( IP); 
184 2 CSIP.SEG = CS; 
185 2 CSIP.OFF = IP; 
186 2 CALL SIOSOUTSCHAR('-'); 
187 2 CALL SIOSOUTSBLANK; 
188 2 CALL SIOSOUTSBYTE(MEMORYS$CSIP); 
189 2 CALL SIOSOUTSBLANK; 
190 2 CALL SIOSGET$CHAR; 
191 2 IF СНАК<>!,! AND CHAR<>ASCR THEN CALL 510%СЕТФАООК(ӘС5ІР,С5); 
193 2 END; 
f *';k'k'k'k'k k k k k k k k k e k He e e ke kee k k ke koko e e He 
* PAPER TAPE READ SECTION * 
Fe He Ae Ae Fe He Fe Ae Fe Ae Ae Ae Ae Ae Ae Ae Ae He He He Te Te Ae Ae ΛΑ ΑΓ 
194 1 SIOSREADSCHAR: 


/* THIS PROCEDURE READS A BYTE FROM THE PAPER TAPE READER OF THE TTY 
BY ACTIVATING DTR, SAMPLING DSR FOR THE START BIT, DEACTIVATING 
DTR WHEN THE START BIT APPEARS, AND READING THE DATUM FROM THE 
USART. TO PROVIDE A HOLD-OFF CAPABILITY FOR THE LOAD COMMAND 
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ONLY (NOT INTENDED FOR TTY PAPER TAPE) CONTROL-S WILL CAUSE THIS 
ROUTINE TO WAIT FOR A CORRESPONDING CONTROL-Q TO BE READ BEFORE 
CONTINUING. */ 

PROCEDURE BYTE; 


195 2 DECLARE DELAY WORD; 
196 2 LOOP: 
OUTPUT(SIO$STAT$PORT) = SI0$8251$DTRSON; /* DTR ON */ 
197 2 DELAY = 0; 
198 2 DO WHILE (INPUT(SIOSSTATSPORT) AND SIOSDSRDY)-0; /*WAIT STARTBIT*/ 
199 3 DELAY = DELAY + 1; 
200 3 IF DELAY»-MAXSDELAY THEN 
2001 3 DO; 
202 ὦ OUTPUT(SIOSSTATSPORT) = SI0$8251$CMND; /* DTR OFF */ 
203 ὁ GOTO ERROR; 
204 4 END; 
205 3 END; 
206 2 OUTPUT(SIOSSTATSPORT) = SIO$8251$CMND; /* DTR OFF */ 
207 2 DO WHILE (INPUT(SIOSSTATSPORT) AND SIOSRXRDY)-0;END; /* WAIT LOOP */ 
209 2 CALL 5ΙΟΦΟΗΕΟΚΦΟΟΝΤΕΟΙ ΦΟΗΑΕ; 
210 2 IF CHAR = 11H THEN GOTO LOOP; /* GET ANOTHER IF CTL-Q */ 
212 2 RETURN CHAR; 
213 2 END; 
214 1 SIOSREADSBYTE: 
/* THIS ROUTINE READS A BYTE FROM THE PAPER TAPE READER. */ 
PROCEDURE BYTE; 
215 2 DECLARE T BYTE; 
216 2 T = LOM(SIOSHEX(SIOSREADSCHAR)); 
217 2 T = SHL(T,4) + LOM(SIOSHEX(SIOSREADSCHAR)); 
218 2 CHECK$SUM = CHECK$SUM + T; 
219 2 RETURN T; 
220 2 END; 
221 1 S IOSREADSWORD: 
/* THIS ROUTINE READS A WORD FROM THE PAPER TAPE READER AND RETURNS IT 
AS THE VALUE OF THE PROCEDURE. */ 
PROCEDURE WORD; 
222 2 DECLARE T BYTE; 
223 2 T - SIOSREADSBYTE; 
220 2 RETURN SHL(DOUBLE(T),8) + DOUBLE(SIOSREADSBYTE); 
225 2 END; 
[ Δ καὶ ыы sk sk k k S sk k ko k k k k Sk k k k k K ko k e k sk k k k kok k o k k k 
* INTERRUPT AND RESTORE/EXECUTE SECTION * 
He He He e e He He He He He He He He e de He He He He He He de He ыы He He He He He He ΑΧ e He He He f 
226 1 SAVE$REGISTERS: 
/* THIS ROUTINE IS USED TO SAVE THE STACKED USER'S REGISTERS IN THE 
MONITOR'S SAVE AREA. */ 
PROCEDURE; 
227 2 BP = MEMORYSUSERSTACK; 
228 2 USERSTACK.OFF = USERSTACK.OFF + 4; 
229 2 DO 1-0 TO 10; /* POP REGISTERS OFF OF STACK */ 
230 3 REGSSAV(REGSORD(I)) = MEMORYSUSERSTACK; 
231 3 USERSTACK.OFF - USERSTACK.OFF * 2; 
232 3 END; 
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233 2 SS - USERSTACK.SEG; 
234 2 SP - USERSTACK.OFF; 
235 2 END; 
236 1 RESTORESEXECUTE: 
/* THIS PROCEDURE RESTORES THE STATE OF THE USER MACHINE AND 
PASSES CONTROL BACK TO THE USER PROGRAM. IT CONTAINS A 
MACHINE LANGUAGE SUBROUTINE TO PERFORM THE POPPING OF THE 
USER REGISTERS AND TO EXECUTE AN 'IRET' TO TRANSFER CONTROL 
TO THE USER'S PROGRAM. */ 
PROCEDURE; 
237 2 DECLARE RESTORESEXECUTESCODE(*) BYTE DATA 
(08BH,OECH, /* MOV BP,SP */ 
O8BH ,046H,002H, /* MOV AX,/BP/.PARM2  */ 
08ВН,05ЕН,004Н, /* MOV BX,/BP/.PARM|  */ 
O8EH, ODOH, /* MOV SS,AX */ 
O8BH , OE3H, /* MOV SP,BX */ 
05DH, /* POP BP */ 
05ΕΗ, /* POP DI ж/ 
05ΕΗ, /* POP SI */ 
O5BH, /* POP BX “/ 
05AH, /* POP DX */ 
059H, /* POP CX */ 
058H, /* POP AX */ 
O1FH, /* POP DS */ 
007H, /* POP ES */ 
OCFH), /* IRET */ 
RESTORESEXECUTESCODESPTR WORD DATA (.RESTORESEXECUTESCODE  ; 
238 2 USERSTACK.SEG = SS; 
239 2 USERSTACK.OFF = SP; 
240 2 DO I=0 TO 10; /* PUSH USER'S REGISTERS ONTO HIS STACK */ 
241 3 USERSTACK.OFF = USERSTACK.OFF - 2; 
242 3 MEMORYSUSERSTACK = REGSSAV(REGSORD(10-1)); 
243 3 END; 
244 2 USERSTACK.OFF = USERSTACK.OFF - 2; 
245 2 MEMORYSUSERSTACK - BP; 
246 2 CALL RESTORESEXECUTESCODESPTR(USERSTACK . OFF , USERSTACK. SEG); 
247 2 END; 
248 1 INTERRUPT 1$ENTRY: 
/* THIS PROCEDURE IS CALLED WHEN THE CPU IS INTERRUPTED BY EXECUTING 
AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP). */ 
PROCEDURE INTERRUPT 1; 
249 ο USERSTACK.OFF = STACKPTR; /* CHANGE TO MONITOR'S STACK */ 
250 2 USERSTACK.SEG = STACKBASE; 
251 2 STACKPTR = MONITORSSTACKPTR; 
252 2 STACKBASE = MONITORSSTACKBASE; 
253 2 CALL SAVESREGISTERS; 
254 2 FL = FL AND (NOT 5ΤΕΡΦΤΒΑΡ}; /* CLEAR STEP FLAG */ 
255 2 IF LASTSCOMMAND<>SS$COMMAND THEN /* CONTINUE IF NOT SS */ 
256 2 CALL RESTORESEXECUTE; 
257 2 CALL SIOSCRLF; 
258 2 CALL SIOSUPDATESIP; 
259 2 IF CHARz',' THEN 
260 2 DO; 





À 
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e51. 3 IP = CSIP.OFF; 

262 3 CS = CSIP.SEG; 

265 3 FL = FL OR STEPSTRAP; /* SET STEP FLAG */ 

264 3 CALL RESTORESEXECUTE; 

265 3 END; 

266 2 IF CHAR<>ASCR THEN GOTO ERROR; 

268 2 GOTO NEXTSCOMMAND ; 

269 2 END; 

270 1 INTERRUPT3SENTRY: 

/* THIS PROCEDURE IS CALLED WHEN THE CPU EXECUTES A 'INT 3' INSTRUCTION. 
THE MONITOR INSERTS THIS (OCCH) FOR A BREAKPOINT. ALSO AN EXTERNAL 
INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE TO BE 
CALLED. */ 
PROCEDURE INTERRUPT 3; 

271 2 USERSTACK.OFF = STACKPTR; 

272 2 USERSTACK.SEG = STACKBASE; 

273 2 STACKPTR = MONITORSSTACKPTR; 

274 2 STACKBASE = MONI TORSSTACKBASE; 

279 2 CALL SAVESREGISTERS; 

276 2 CALL SIOSCRLF; 

arr’ 2 GOTO AFTERSINTERRUPT; 

278 2 END; 

279 1 INITSINTSVECTOR: 


/* THIS ROUTINE INITIALIZES AN INTERRRUPT VECTOR AS FOLLOWS: THE OFFSET 
FROM THE ADDRESS OF 'INTSROUTINE' CORRECTED BY THE APPROPRIATE 
NUMBER OF BYTES FOR THE INTERRUPT PLM PROLOGUE. THE SEGMENT FROM THE 
CURRENT CS REGISTER IS DETERMINED BY A MACHINE LANGUAGE CODED 
SUBROUTINE. */ 
PROCEDURE ( INT$VECTORSPTR, INT$ROUT INESOFFSET); 
280 2 DECLARE ІМТФУЕСТОКФРТК POINTER, INTSROUTINESOFFSET WORD, 
VECTOR BASED INTSVECTORSPTR STRUCTURE (OFF WORD, SEG WORD), 
CORRECTION LITERALLY '19H', /* OFFSET FOR PROLOGUE */ 
ІМІТФІМТФУЕСТОКФСООЕ(%) BYTE DATA 


(055H, /* PUSH BP */ 
O8BH, OECH, /* MOV BP,SP */ 
O8CH, OC8H, /* MOV AX,CS */ 
OC4H, 05EH,004H, /* LES BX,/BP/.PARM1 */ 
026H,089H,007H, /* MOV ES:W/BX/,AX © */ 
05DH, /* POP BP ж/ 
OC2H,004H,000H), /* RET 4 */ 
INITSINTSVECTORSCODESPTR WORD DATA (.INITSINTSVECTORSCODE); 
281 2 CALL INITS$INT$VECTORSCODESPTR(QVECTOR.SEG); — /* SEGMENT PORTION */ 
282 2 VECTOR.OFF = INT$ROUTINESOFFSET - CORRECTION; /% OFFSET PORTION */ 
283 2 END; 


/* he de e de e k e e e fe e de e e de e e ee e dee eee e ede e eee k k k k k k e He k e e k k de dee e e e dee k k e dee e dee fed k 
fe e * * e * e e e e e e e e e e e de e e e e e de e de de de dee e k e dee e de dee ee e e e de de e de dee e de 1 e e de dede * ee ἐς * * e 


COMMAND MODULE 


ABSTRACT 


THIS MODULE CONTAINS ALL THE COMMANDS IMPLEMENTED AS INDIVIDUAL PROCEDURES 
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AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 


1. COMMANDS SECTION 


510%С0 GO 

SIOSSINGLESSTEP SINGLE STEP 

510ФЕХАМФМЕМ SUBSTITUTE MEMORY 

SIOSEXAMSREG EXAMINE REGISTER 

510%9МОУЕ МОУЕ 

SIOSDISPLAY DISPLAY BYTES 

SIOSINPUT INPUT PORT 

SIOSOUTPUT OUTPUT PORT 

SIOSWRITE WRITE DATA RECORDS 

SIOSREAD READ DATA RECORDS 
2. COMMAND DISPATCH (OUTER BLOCK, MAIN PROGRAM LOOP) 

NEXTSCOMMAND DISPATCH 

ERROR ERROR ROUTINE 


gi 
/ *'k'k'k'k'k'k He kok e He He He He He e He He ko ΑΧ 


* COMMAND SECTION * 


Ae e e He Ae He e Ae He Ae e ыы He He ΛΑ f 


284 1 SIO$GO: 
/* IMPLEMENTS THE 'GO' COMMAND. THE USER MAY SPECIFY A NEW 
IP:PC AND AN OPTIONAL BREAKPOINT. */ 


PROCEDURE ; 

285 2 CALL SIOSUPDATESIP; 
286 2 IF CHAR=',' THEN /* BREAKPOINT */ 
287 2 DO; 
288 3 CALL SIOSGET$CHAR; 
289 3 CALL SIO$SGETSADDR(@BRK1,CSIP.SEG); 
290 3 IF CHAR<>ASCR THEN GOTO ERROR; 
292 3 BRK1$SAVE = MEMORYSBRK1; 
293 3 MEMORYSBRK1 = BREAKS$INST; 
294 3 IF MEMORYSBRKT«»BREAKSINST THEN GOTO ERROR; 
296 3 ΒΑΚΊΦΕΙΑα = TRUE; 
297 3 END; 

ELSE /* NO BREAKPOINT */ 
298 2 IF CHAR<>ASCR THEN GOTO ERROR; 

CALL SIOSCRLF; 
301 2 IP = CSIP.OFF; 
302 2 CS = CSIP.SEG; 
303 2 FL = FL AND (NOT ЅТЕРФТВАР); /* CLEAR IF SET */ 
304 2 CALL RESTORESEXECUTE ; 
305 2 END; 
306 1 SIOSSINGLESSTEP: 


/* IMPLEMENTS THE SINGLE STEP COMMAND. DISPLAYS IP AND THE 
CURRENT INSTRUCTION BTYE. OPENS CS:IP FOR INPUT. DEPRESSING 
COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, AND 
PERIOD TERMINATES THE COMMAND. */ 

PROCEDURE ; 
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307 2 CALL SIOSUPDATESIP; 
308 2 IF СНАК<>!,! THEN GOTO ERROR; 
310 2 IP = CSIP.OFF; 
311 2 CS = CSIP.SEG; 
312 2 FL = FL OR STEPSTRAP; 
33 2 CALL RESTORESEXECUTE ; 
314 2 END; 
315 1 SIOSEXAMSMEM: 
/* IMPLEMENTS THE EXAMINE MEMORY COMMAND. */ 
PROCEDURE ; 

316 2 DECLARE W WORD; 
317 2 CALL SIOSTESTSWORDSMODE ; 
318 2 CALL SIOSGETSADDR(@ARG1,CS); 
319 2 IF CHAR<>',' THEN GOTO ERROR; 
321 2 DO WHILE TRUE; 
522 3 CALL SIOSOUTSBLANK; 
323 3 IF WORD$MODE THEN 
324 3 CALL SIOSOUTSWORD (MEMORYSWORDSARG1); 

ELSE 
325 3 CALL SIOSOUTSBYTE(MEMORYS$ARG1); 
326 3 CALL SIOSOUT$SCHAR('-'); 
327 3 CALL SIOSOUTSBLANK; 
328 3 CALL SIOSGETS$CHAR; 
329 3 IF CHAR=ASCR THEN RETURN; 
331 3 IF СНАК<>!,! THEN 
332 3 DO; 
335 4 М = SIOS$GET$WORD; 
334 4 IF (CHAR <> !,!) AND (CHAR <> ASCR) THEN GOTO ERROR; 
336 4 IF WORD$MODE THEN 
337 4 DO; 
338 5 MEMORYSWORDSARG1 = W; 
339 5 IF MEMORYSWORDSARG1<>W THEN GOTO ERROR; 
341 5 END; 

ELSE 

342 4 DO; 
343 5 MEMORYSARG1 = LOW(W); 
344 5 IF MEMORYSARG1<>LOW(W) THEN GOTO ERROR; 
346 5 END; 
347 6 END; 
348 3 IF CHAR=ASCR THEN RETURN; 
350 3 IF WORDSMODE THEN 
351 3 ARG1.OFF = ARG1.OFF + 2; 

ELSE 
352 3 ARG1.OFF = ARG1.OFF + 1; 
353 3 CALL SIOSCRLF; 
354 3 CALL SIOSOUTSWORD(ARG1.OFF); 
399 3 END; 
356 2 END; 
357 1 SIOSEXAMSREG: 


/* IMPLEMENTS THE EXAMINE REGISTER COMMAND. SCANS FOR A VALID 
REGISTER NAME AND DISPLAYS THE VALUE OF THAT REGISTER WHICH IS 
OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO NEXT REGISTER 
UNLESS IT IS 'FL' WHICH TERMINATES AS DOES CR. */ 
PROCEDURE ; 
4358 2 DECLARE (T,I) BYTE, SAVE WORD; 
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CALL SIO$SCAN$BLANK; 
IF CHAR=ASCR THEN 
DO; 
CALL SIOSCRLF; 
DO 1=0 TO 13; 
CALL SIOSOUTSBLANK; 
CALL SIOSOUTSCHAR(REG(I*2)); 
CALL SIOSOUTSCHAR(REG(I*2*1)); 
CALL SIOSOUTSCHAR('='); 
CALL SIOSOUTSWORD(REG$SAV(I)); 
IF 1=6 THEN CALL SIOSCRLF; 
END; 


END; 
IF NOT(SIOSVALIDS$REGSFIRST) THEN GOTO ERROR; 
T = CHAR; 
CALL SIOSGETSCHAR; 
IF NOT(SIOSVALIDS$REG(T,CHAR)) THEN GOTO ERROR; 
I = REGSINDEX; 
DO WHILE TRUE; 
CALL SIOSOUTSCHAR('z'); 
CALL SIOSOUTSWORD (КЕСФЅАМ (І) ); 
CALL SIOSOUTSCHAR( ' -' 5); 
CALL SIOSOUTSBLANK; 
CALL SIOSGETSCHAR; 
IF СНАК<>!,! AND CHAR<>ASCR THEN 
DO; 
SAVE = SIOSGET$WORD; 
IF (CHAR <> ',' ) AND (CHAR <> ASCR) THEN GOTO ERROR; 
REG$SAV(I) = SAVE; 
END; 
IF CHAR=ASCR OR 1=13 THEN RETURN; 
1.11; 
CALL SIOSCRLF; 
CALL SIOS$OUTSCHAR(REG(CI*2)); 
CALL SIOSOUTSCHAR(REG(1I*2+1)); 
END; 


END; 


SIOSMOVE: 
/* IMPLEMENTS THE MOVE COMMAND. ACCEPTS 3 ARGUMENTS AMD MOVES THE 


BLOCK OF MEMORY SPECIFIED BY ARG1-ARG2 TO ARG3. ARG2<ARG1 OR THERE 
IS A DIFFERENCE WHEN THE BYTE IS READ BACK, THEN ERROR. */ 


PROCEDURE ; 


LOOP : 


CALL SIOSSCANSBLANK; 

CALL SIO$GETSADDR(@ARG1,CS); 

IF CHAR<>',' THEN GOTO ERROR; 

CALL SIOSGET$CHAR; 

ENDSOFF = SIOSGETS$WORD; 

IF ENDSOFF<ARG1.OFF THEN GOTO ERROR; 
IF CHAR<>',' THEN GOTO ERROR; 

CALL SIOSGETSCHAR; 

CALL SIOSGETSADDR(@ARGS,CS); /* THIRD ARGUMENT */ 
IF CHAR<>ASCR THEN GOTO ERROR; 

CALL SIOSCRLF; 


/* FIRST ARGUMENT */ 


/* SECOND ARGUMENT */ 


MEMORYSARG3 = MEMORYSARG1; 
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419 2 IF MEMORYSARG3<>MEMORYSARG1 THEN GOTO ERROR; 
421 2 IF ARG1.OFF = ENDSOFF THEN RETURN; 
423 2 ARG1.OFF = ARG1.OFF + 1; 
424 2 ARG3.OFF = ARG3.OFF + 1; 
425 e GOTO LOOP; 
426 2 END; 
427 1 SIOSDISPLAY: 
/* IMPLEMENTS THE DISPLAY BYTE COMMAND. IF CALLED WITH 1 PARM THEN 
OUTPUTS A SINGLE BYTE. IF CALLED WITH 2 PARMS THEN OUTPUTS THE RANGE 
BETWEEN THE TWO ADDRESSES. IF OFFSET<BEGIN THEN OUTPUTS ONLY A SINGLE 
BYTE. */ 
PROCEDURE ; 
428 2 DECLARE T BYTE; , 
429 2 CALL SIOSTESTSWORDSMODE ; 
430 2 CALL 510%СЕТФАООЕ(ФАКС1,С5); 
431 2 IF CHAR=ASCR THEN 
432 2 ENDSOFF = ARG1.OFF; 
ELSE 
433 2 DO; 
434 3 IF СНАК<>!,! THEN GOTO ERROR; 
436 3 CALL SIOSGETSCHAR; 
437 3 ENDSOFF = SIOSGET$WORD; 
438 3 IF ENDSOFF < ARG1.OFF THEN GOTO ERROR; 
440 3 IF CHAR<>ASCR THEN GOTO ERROR; 
442 3 END; 
443 2 NEWLINE: 
CALL SIOSCRLF; 
444 2 CALL SIOSOUTSWORD(ARG1.OFF); 
445 2 LOOP: CALL SIOSOUTSBLANK; 
446 2 IF WORDSMODE THEN 
447 2 DO; 
448 3 CALL SIOSOUTSWORD (MEMORYSWORDSARG1); 
449 3 IF ARG1.OFF = ENDSOFF THEN RETURN; 
451 3 ARG1.OFF = ARG1.OFF + 1; 
452 3 END; 
ELSE 
453 2 CALL SIOSOUTSBYTE (MEMORYSARG1); 
454 2 IF ARG1.OFF>=ENDSOFF THEN RETURN; 
456 2 ARG1.OFF = ARG1.OFF + 1; 
457 2 T = ARG1.OFF AND 000FH; 
458 2 IF Т-0 OR (WORDSMODE AND T=1) THEN GOTO NEWLINE; 
460 2 GOTO LOOP; 
461 2 END; 
462 1 SIOSINPUT: 
/* THIS ROUTINE IMPLEMENTS THE 'INPUT' COMMAND. USER SPECIFIES 
A PORT AND THE DATUM OF THE PORT IS DISPLAYED. */ 
PROCEDURE ; 
463 2 DECLARE PORT WORD; 
464 2 CALL SIOSTESTSWORDSMODE ; 
465 2 PORT = SIO$GETSWORD; 
466 2 LOOP: 
IF CHAR<>',' THEN GOTO ERROR; 
468 2 CALL 5ΙΟΦΟΚΙΕ; 
469 2 IF WORDSMODE THEN 
470 2 CALL SIOSOUTSWORD( INWORD (PORT )); 
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ELSE 
471 2 CALL SIOSOUTSBYTE(INPUT(PORT)); 
472 2 CALL SIOSGETSCHAR; 
473 2 IF CHAR=ASCR THEN RETURN; 
475 2 GOTO LOOP; 
476 2 END; 
477 1 SIOSOUTPUT: 
/* THIS ROUTINE IMPLEMENTS THE 'OUTPUT' COMMAND. THE USER SUPPLIED 
DATUM IS OUTPUT TO THE SPECIFIED PORT. */ 
PROCEDURE ; 
478 2 DECLARE (DATUM,PORT) WORD; 
479 2 CALL SIOSTESTSWORDSMODE ; 
480 2 PORT = SIOSGETSWORD; 
481 2 IF CHAR«»',' THEN GOTO ERROR; 
483 2 CALL SIOSGETSCHAR; 
484 2 LOOP: 
DATUM = SIOSGETS$WORD; 
485 2 IF CHARz':' THEN GOTO ERROR; 
487 2 IF WORD$MODE THEN 
488 2 OUTWORD(PORT) = DATUM; 
ELSE 
489 2 OUTPUT(PORT) = LOW(DATUM); 
490 2 IF CHAR=',' THEN 
491 2 DO; 
492 3 CALL SIOSCRLF; 
493 3 CALL SIOSOUTSCHAR( -!); 
494 3 CALL SIOSOUTSBLANK; 
495 3 CALL SIOSGETSCHAR; 
496 3 IF CHAR «» ASCR THEN GOTO LOOP; 
498 3 END; 
499 2 END; 
500 1 SIOSWRITE: 
/* IMPLEMENTS THE PAPER TAPE WRITE COMMAND. OUTPUTS LEADING NULLS, 
EXTENDED ADDRESS RECORD (8086 ONLY), START ADDRESS RECORDS 
(8086 ONLY), DATA RECORDS, EOF RECORD, AND TRAILING NULLS. */ 
PROCEDURE; 
501 2 DECLARE (STARTS$REC,MODE$8086) BYTE, (LEN,INDEX) WORD; 
502 2 CALL SIOSGETSCHAR; 
503 2 MODE$8086 = TRUE; 
504 2 IF CHAR='X' THEN /* TEST FOR 8080 MODE */ 
505 2 DO; 
506 3 MODE$8086 = FALSE; 
507 3 CALL SIOSGETSCHAR; 
508 3 END; 
509 2 IF CHAR-ASBL THEN CALL SIOSGETSCHAR; 
511 2 CALL SIOSGETSADDR(GARG1,CS); 
512 2 IF CHAR<>',' THEN GOTO ERROR; 
514 2 CALL SIOSGETSCHAR; 
515 2 ENDSOFF = SIOSGET$WORD; 
516 2 IF ENDSOFF<ARG1.OFF THEN GOTO ERROR; 
518 2 IF CHAR<>ASCR THEN 
519 2 DO; 
520 3 STARTSREC = TRUE; 
521 3 CALL SIOSGETSCHAR; 
522 3 CALL SIOSGETSADDR(GARG3, CS); 
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523 3 END; 
ELSE 

524 2 DO; 
525 3 STARTSREC = FALSE; 
526 3 ARG3.OFF = 0; 
527 3 END; 
528 2 IF CHAR<>ASCR THEN GOTO ERROR; 
530 2 CALL SIOSCRLF; 
531 2 DO 1-1 TO 60; /* LEADING NULLS */ 
532 3 CALL SIOSOUTSCHAR(0); 
533 3 END; 
534 2 CALL SIOSCRLF; 
535. 2 IF MODE$8086 THEN 
536 2 DO; 
537 3 IF STARTSREC THEN 
538 3 DO; 
539 4 CALL SIOSOUTSHEADER(04,0,03); /* START ADDRESS RECORD */ 
540 4 CALL SIOSOUT$WORD(ARG3.SEG); 
541 4 CALL SIOSOUT$WORD(ARG3.OFF); 
542 4 CALL SIOSOUTSBYTE(CHECKSSUM) ; 
543 4 CALL SIOSCRLF; 
544 4 ARG3.OFF = 0; 
545 4 END; 
546 3 CALL SIOSOUTSHEADER(02,0,02); /* EXTENDED ADDRESS RECORD */ 
547 3 CALL SIOSOUT$WORD(ARG1.SEG); 
548 3 CALL SIOSOUTSBYTE(CHECKS$SUM) ; 
549 3 CALL SIOSCRLF; 
550 3 END; 
551 2 LEN = STANDARDSLEN; /* DATA RECORD */ 
552 2 LOOP: INDEX = ENDSOFF - ARGÍ.OFF; 
553 2 IF INDEX<STANDARDSLEN THEN LEN = INDEX + 1; 
555 2 CALL SIOSOUT$HEADER(LEN,ARG1.OFF,00); 
556 2 DO 1-1 TO LEN; 
557 3 CALL SIOSOUTSBYTE(MEMORYSARG!) ; 
558 3 ARG1.OFF = ARGÍ.OFF + 1; 
559 3 END; 
560 2 CALL SIOSOUTSBYTE(CHECK$SUM); 
561 2 CALL SIOSCRLF; 
562 2 IF ENDSOFF<>ARG1.OFF-1 THEN GOTO LOOP; 
564 2 CALL SIOSOUTSHEADER(00, ARG3.OFF , 01); /* EOF RECORD */ 
565 2 CALL SIOSOUTSBYTE(CHECK$SUM); 
566 2 CALL SIOSCRLF; 
567 2 DO 1=1 TO 60; /* TRAILING NULLS */ 
568 3 CALL SIOSOUTSCHAR(0); 
569 3 END; 
570 2 END; 
571 1 SIOSREAD: 

/* IMPLEMENTS THE READ PAPER TAPE COMMAND. */ 

PROCEDURE ; 
572 2 DECLARE BIAS WORD, (RECSTYPE,LEN,I,T) BYTE, OFFSET WORD; 


275 - BIAS = 0; /* DEFAULT BIAS */ 
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574 2 ARG1.SEG = 0; /* DEFAULT CS FOR 8080 FORMAT FILE */ 
5/9 е CALL SIOSSCANSBLANK ; 
576 2 IF CHAR<>ASCR THEN BIAS = SIOS$GET$WORD; 
578 2 IF CHAR<>ASCR THEN GOTO ERROR; 
580 2 CALL SIOSCRLF; 
581 2 LOOP: 
DO WHILE SIOSREADSCHAR«»' : ' ; END; 
585 2 CHECK$SUM = 0; 
584 2 LEN = SIOSREADSBYTE; 
585 2 OFFSET = SIOSREADSWORD; 
586 2 ARG1.OFF = OFFSET + BIAS; 
587 2 REC$TYPE = SIOSREADSBYTE; 
588 2 IF RECSTYPE=03 THEN /* START ADDR TYPE */ 
589 2 DO; 
590 3 CS = SIOSREADSWORD; 
591 3 ІР = SIO$READSWORD; 
592 3 END; 
593 2 IF КЕСФТҮРЕ=02 THEN /* EXTENDED ADDR TYPE */ 
594 2 ARG1.SEG = SIOSREADS$WORD; 
595 2 IF RECSTYPE = 01 THEN /* EOF */ 
596 2 IF OFFSET <> 0 THEN IP = OFFSET; 
598 2 IF КЕСФТҮРЕ-00 THEN /* DATA TYPE */ 
599 2 DO I=1 TO LEN; 
600 3 T,MEMORYSARG1 = SIOSREADSBYTE; 
601 3 IF MEMORYSARG1<>T THEN GOTO ERROR; 
603 3 ARG1.OFF = ARG1.OFF + 1; 
604 3 END; 
605 2 T = SIOSREADSBYTE; /* FETCH CHECKSUM */ 
606 2 IF CHECK$SUM<>0 THEN GOTO ERROR; 
608 2 IF RECSTYPE«»01 AND LEN«»0 THEN GOTO LOOP; 
610 2 CALL SIOSOUTSCHAR(O); /* DELAY FOR LAST CR, LF SENT */ 
611 2 CALL SIOSOUTSCHAR(O); /* BY INTELLEC */ 
612 2 END; 
/ *'k'k'e k k kekok kekok k kekok k o ok ko k kok k k He He ok ke ek k k k kok k kok 
* COMMAND DISPATCH MAIN PROGRAM LOOP * 
Fe k kk e k k de dee k k kok He He k k e ok ko ok ko kok ke ke koko koko e koko e / 
613 1 DISABLE; 
614 1 OUTPUT(KB$STAT$PORT) = KB$INIT$MODE; 
615 1 OUTPUT(KB$STAT$PORT) = KB$INIT$SCAN; 
616 1 OUTPUT(KB$STAT$PORT) = 90H; /* OUTPUT '8086' SIGNON BACKWARDS */ 
617 1 DO І-0 TO 7; 
618 2 OUTPUT(KBSDATASPORT) = KB$SIGNON(I); 
619 2 END; 
/* THIS STRANGE SEQUENCE OF CODE IS USED TO GUARANTEE CORRECT USART 
INITIALIZATION AFTER EITHER: 1) HARDWARE RESET (EXPECTING MODE) 
2) SOFTWARE RESTART (EXPECTING COMMAND). */ 
620 1 OUTPUT(SIOS$STATSPORT) = SIO$8251$RESET; 
621 1 CALL SIO$8251$SETTLINGS$DELAY; 
622 1 OUTPUT(SIOSSTATSPORT) = 25H; 
623 1 CALL SIO$8251$SETTLINGS$DELAY; 
624 1 OUTPUT(SIOSSTATSPORT) = SIO$8251$RESET; 
625 1 CALL SIO$8251SSETTLINGSDELAY; 
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626 1 OUTPUT(SIOSSTATSPORT) = S10$8251$MODE; 
627 1 CALL SIO$8251$SETTLING$SDELAY; 
628 1 OUTPUT(SIOSSTATSPORT) = SI0$8251$CMND; 
629 1 CALL SIO$8251$SETTLINGSDELAY; 
630 1 CALL SIOSOUTSSTRING(GSIOSSIGNON); 
/* INITIALIZE USER'S REGISTERS */ 
631 1 CS,SS,DS,ES,FL,IP = 0; 
632 1 SP = USERSINITSSP; 
/* INITIALIZE INTERRUPT VECTORS */ 
633 1 CALL INITSINTSVECTOR(GINTSVECTOR( 1), . INTERRUPT1SENTRY); 
634 1 CALL INITSINTSVECTOR(GINTSVECTOR(2), . INTERRUPTSSENTRY); 
635 1 CALL INITSINTSVECTOR(@INTSVECTOR(3), . INTERRUPTSSENTRY); 
636 1 BRK1$FLAG = FALSE; 
637 1 MONITORSSTACKPTR = STACKPTR; 
638 1 MONITORSSTACKBASE = STACKBASE; 
639 1 NEXTSCOMMAND : 
/* THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES TO EACH 
COMMAND WHICH IS A SEPARATED PROCEDURE. */ 
CALL SIOSCRLF; 
640 1 CALL SIOSOUTSCHAR(0); 
641 1 CALL SIOSOUTSCHAR('.!); 
642 1 CALL SIOSGETSCHAR; 
643 1 DO ΙΞ0 TO LAST(SIOSCMND); 
644 2 IF CHAR-SIOSCMND(I) THEN GOTO DISPATCH; 
646 2 END; 
647 1 GOTO ERROR; 
648 1 DISPATCH: 
LASTSCOMMAND = I; 
649 1 DO CASE I; 
650 2 CALL SIOSEXAMSMEM; 
651 2 CALL SIOSEXAM$SREG; 
652 2 CALL 510%60; 
653 2 CALL SIOSSINGLESSTEP; 
654 2 CALL SIOSMOVE; 
655 2 CALL SIOSDISPLAY; 
656 2 CALL SIOSINPUT; 
657 2 CALL SIOSOUTPUT; 
658 2 CALL SIO$READ; 
659 2 CALL SIOSWRITE; 
660 2 END; 
661 1 СОТО МЕХТФСОММАМО; 
662 1 ERROR: 
/* THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE MONITOR AND 
WILL OUTPUT THE ERROR PROMPT TO THE OUTPUT PORT.*/ 
CALL SIOSOUTSCHAR('#'); 
663 1 GOTO МЕХТ%СОММАМО; 
664 1 AFTERSINTERRUPT : 


/* THIS ROUTINE IS CALLED AFTER AN INTERRUPT TO DISPLAY THE CS:IP 
AND RESTORE THE BREAKPOINTED INSTRUCTION. */ 
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IF BRKTSFLAG THEN 


665 1 DO; 
666 2 MEMORYSBRK1 = BRK1$SAVE; 
667 2 BRKISFLAG = FALSE; 
668 2 IF ((ІР-1) AND OOOFH)=(BRK1.OFF AND OOOFH) AND 
(SHRCIP-1,4)+CS)=(SHR(BRK1.OFF,4)+BRK1.SEG) THEN 
669 2 DO; 
670 3 IP = IP - 1; 
671 3 CALL SIOSOUTSSTRING(@S1O$BREAKS$MSG) ; 
672 3 END; 
673 2 END; 
674 1 CALL SIOSOUTSCHAR( '3!); 
675 1 CALL SIOSOUTSWORD(CS); 
676 1 CALL SIOSOUTSCHAR( ' :' ); 
677 1 CALL SIOSOUTSWORD( IP); 
678 1 GOTO NEXTSCOMMAND ; 
679 1 END MONITOR; /* END OF MODULE */ 
EOF 


MODULE INFORMATION: 


CODE AREA SIZE = OFDBH 40590 
CONSTANT AREA SIZE = 0000H OD 
VARIABLE AREA SIZE = 0078H 120D 
MAXIMUM STACK SIZE = 0042H 66D 


1211 LINES READ 
0 PROGRAM ERROR(S) 


END OF PL/M-86 COMPILATION 


SDK-86 SERIAL MONITOR 


EXPANDED SOURCE LISTING 
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1515-11 PL/M-86 V1.1 COMPILATION OF MODULE MONITOR 

NO OBJECT MODULE REQUESTED 

COMPILER INVOKED BY: PLM86 :F1:SERIAL.PLM LARGE OPTIMIZE(2) PAGEWIDTH(95) ἃ 
CODE XREF NOOBJECT PRINT(:F1:SERIAL.PRT) 


$TITLE('SOK86 SERIAL MONITOR!) 
SNOINTVECTOR 
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SDK-86 MONITOR, V1.2 
06 AUGUST 1979 


(C) 1978 INTEL CORPORATION. ALL RIGHTS RESERVED. NO PART 
OF THIS PROGRAM OR PUBLICATION MAY BE REPRODUCED, TRANSMITTED, 
TRANSCRIBED, STORED IN A RETRIEVAL SYSTEM, OR TRANSLATED INTO ANY 
LANGUAGE, IN ANY FORM OR BY ANY MEANS, ELECTRONIC, MECHANICAL, 
MAGNETIC, OPTICAL, CHEMICAL, MANUAL OR OTHERWISE, WITHOUT THE PRIOR 
WRITTEN PERMISSION OF INTEL CORPORATION, 3065 BOWERS AVENUE, SANTA 
CLARA, CALIFORNIA, 95051. 
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ABSTRACT 


THIS PROGRAM IS THE ROM BASED SERIAL MONITOR FOR THE SDK-86. IT 
PROVIDES THE USER WITH A MODERATE LEVEL OF CAPABLILITY TO 
EXAMINE/MODIFY MEMORY AND REGISTERS, CONTROL PROGRAM EXECUTION, 
AND LOAD/SAVE PROGRAMS. 


ENVIRONMENT 


THE SDK SERIAL MONITOR COMMUNICATES WITH THE USER VIA AN INTERACTIVE 
TERMINAL (TTY,CRT) ATTACHED TO THE SERIAL PORT. 


PROGRAM ORGANIZATION 


THE PROGRAM IS DIVIDED INTO 1 DATA AND 2 CODE MODULES: 
1. DATA DECLARATION MODULE. GLOBAL DATA DECLARATIONS. 
2. COMMON ROUTINES. LOWER LEVEL. PROCEDURES 
3. COMMAND MODULE. INDIVIDUAL COMMANDS AND OUTER BLOCK 


CALLING GRAPH 


»»COMMAND DISPATCH MODULE (OUTER BLOCK) 
INDIVIDUAL COMMAND PROCEDURES 
COMMON ROUTINES 


GLOBAL DATA STRUCTURES 


THE MONITOR MAINTAINS THE USER'S MACHINE STATE (REGISTERS) IN A 
WORD ARRAY. THE REGISTERS ARE SAVED FROM THE USER'S STACK 
AS PUSHED BY PLM86 INTERRUPT PROCEDURE. 
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POINTERS TO THE SDK-86 2**20 ADDRESS SPACE ARE IMPLEMENTED WITH 
POINTER STRUCTURES ALLOCATED AS 2 WORD STRUCTURES. 


"i 
1 MONITOR :DO; /* BEGINNING OF MODULE */ 


/* He e de de e de dee dee e de e e de e e de e de e de de e dee de e e dee e ede e dee ede e dee dede e de e e ee de dede de dee de e e de dee e ke 
* de e de e de e e e de e k e e ee ee de de e k e e e ee e de de de e ee de e e e e de e e de ede dee de ede de ede de dede de k * dede je dee 


GLOBAL DATA DECLARATIONS MODULE 


THIS MODULE CONTAINS ALL THE GLOBAL DATA DECLARATIONS AND 
LITERALS (EQUATES). 


MODULE ORGAINIZATION 


THE MODULE IS DIVIDED INTO 5 SECTIONS: 


1. UTILITY SECTION GLOBAL FLAGS,VARIBLES, EQUATES 

2. 1/0 SECTION 1/0 PORTS,MASKS,AND SPECIAL CHARS 
3. MEMORY ARGUMENTS SECTIONS STRUCTURES FOR POINTERS 

4. REGISTER SECTION USER REGISTER SAVE AREA 

5. BOOT AND 8089 SECTION BOOTSTRAP AND 8089 DESCRIPTOR 


"f 
/ *'k'k'k'k k He koko kok he He He He kok koko ko kok 


* UTILITY SECTION * 


Ae he he e He He He Ye ыы 


2 1 DECLARE 

INT$VECTOR(5) POINTER; /* INTERRUPT VECTORS */ 
3. Ἢ DECLARE 

MONITORSSTACKPTR WORD, 

MONI TORSSTACKBASE WORD; 


4 1 DECLARE 
COPYRIGHT(*) BYTE DATA ('(C) 1978 INTEL CORP'); 

5 1 DECLARE 
ΒΑΚΊΦΕΙ Ας ΒΥΤΕ, /* TRUE IF BREAK SET */ 
BRK1$SAVE BYTE, /* INST BREAK SAVE */ 
CHAR BYTE, /* ONE CHAR LOOK AHEAD */ 
CHECK$SUM BYTE, /* PAPER TAPE CHECKSUM */ 
I BYTE, /* INDEX */ 
ΕΝΌΦΟΕΕ WORD, /* END OFFSET ADDRESS */ 
WORD$MODE BYTE, /* WORD MODE FLAG */ 
LASTSCOMMAND BYTE; /* LAST COMMAND SAVE */ 

6 1 DECLARE 
TRUE LITERALLY 'OFFH', 
FALSE LITERALLY 'OOOH', 
BREAKSINST LITERALLY 'OCCH', /* BREAKPOINT INST */ 
STEPSTRAP LITERALLY '0100H', /* SS TRAP FLAG MASK */ 
USERS$INITSSP LITERALLY '100H', /* USER STACK INITIAL */ 
GO$ COMMAND LITERALLY '2', /* GO COMMAND CODE */ 
SS$COMMAND LITERALLY '3', /* SINGLE STEP CODE */ 
STANDARDSLEN LITERALLY '16', /* PAPER TAPE DATA REC LEN */ 


MAXSDELAY LITERALLY '10000'; /* DELAY FOR PAPER TAPE */ 
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6 8 " ж/ 


8251 USART */ 

STATUS INPUT PORT */ 

DATA INPUT PORT */ 

RESET COMMAND */ 

ASYNC MODE */ 

DTR OFF */ 

SAME AS CMND BUT DTR ON */ 
DATA SET READY */ 

RECEIVE DATA READY */ 

XMIT BUFFER EMPTY */ 


STATUS/COMMAND PORT */ 
DATA PORT "f 
8 8-ВІТ, LEFT ENTRY, 


ENCODE, 2 KEY LOCKOUT */ 


10MS SCAN RATE zr 


CARRIAGE RETURN */ 
LINE FEED id 


7 1 DECLARE 
KB$SIGNON(*) BYTE DATA (5BH,86H, 00H, 00H, 7DH, 7FH, 00Η, 00Η}, 
/*"2 1. 
SIOSBREAK$MSG(*) BYTE DATA ('BR ',0), 
SIOSSIGNON(*) BYTE DATA (ODH,OAH, 'SDK-86 MONITOR, V1.2',0), 
ASCII(*) BYTE DATA ('0123456789ABCDEF'), 
SIO$CMND(*) BYTE DATA ('SXGNMDIORW'); 
уы ыы He He He He e He He He He He He He He He He e He He e 
* 1/0 DECLARATIONS SECTION  * 
fe e he He He He He He He kok k kok He o Ae kok ko He k А He k kok He e He He f 
8 1 DECLARE /* 
SIO$STAT$PORT LITERALLY 'OFFF2H', /* 
SIOSDATASPORT LITERALLY 'OFFFOH!', /* 
SIO$8251$RESET LITERALLY '065Н', Ы 
SI0$8251$MODE LITERALLY "ОСЕН!, /* 
SIO$8251$CMND LITERALLY '025н', /* 
SI0$8251$DTR$ON LITERALLY '027H', ан 
SIO$DSRDY LITERALLY —— '80H', /* 
SIOSRXRDY LITERALLY '02Η', /* 
SIO$TXRDY LITERALLY — '01H'; /* 
9 1 DECLARE 
KBSSTATSPORT LITERALLY 'OFFEAH', /% 
KBSDATASPORT LITERALLY 'OFFEBH', /* 
ΚΒΦΙΝΙΤΦΜΟΡΕ LITERALLY '00Н', /* 
KB$INIT$SCAN LITERALLY '39H'; js 
10 1 DECLARE 
ASCR LITERALLY 'ODH', /* 
ASLF LITERALLY 'OAH', ig 
ASBL LITERALLY '20H'; /* 


уы ыы ыы He He ыы ыы 


* MEMORY ARGUMENT SECTION * 


* ek e kok k ko Ye e kok k kk k e e k koko k koko e e / 


11 1 DECLARE 
MEMORYSARGTSPTR POINTER, ў" 
ARG1 STRUCTURE (OFF WORD, SEG WORD) 
AT (@MEMORYSARG1$PTR), 


MEMORYSARG1 BASED ΜΕΜΟΒΥΦΑΚΩΊΦΡΙΝ BYTE, 


BLANK OR SPACE */ 


ARGUMENT 1 */ 


MEMORYSWORDSARG1 BASED ΜΕΜΟΒΥΦΑΚΩΊΦΡΙΝ WORD, 


MEMORYSARGSSPTR POINTER, /* 
ARGS STRUCTURE (OFF WORD, SEG WORD) 

AT (GQMEMORYSARG3$PTR), 
MEMORYSARG3 BASED MEMORYSARGSS$PTR BYTE, 


MEMORYSBRK1I$PTR POINTER, /* 
BRK1 STRUCTURE (OFF WORD, SEG WORD) 

AT (ӘМЕМОКҮФВЕК1ФРТК), 
MEMORYSBRK1 BASED MEMORYSBRK1$PTR BYTE, 


MEMORYSCSIPSPTR POINTER, ў? 
CSIP STRUCTURE (OFF WORD, SEG WORD) 
АТ (@MEMORYSCSIPS$PTR), 


ARGUMENT 3 */ 


BREAKPOINT 1 */ 


CS & IP WORD */ 
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MEMORYSCSIP BASED MEMORYSCSIPSPTR BYTE, 


MEMORYSUSERSTACK$PTR POINTER, 
USERSTACK STRUCTURE (OFF WORD, SEG WORD) 
AT (@MEMORYSUSERSTACKS$PTR), 
MEMORYSUSERSTACK BASED MEMORYSUSERSTACKS$PTR WORD; 


уы kok k koko de kok k He 


* REGISTER SECTION * 


Ae e He He He He Ae ыды, 


12 1 DECLARE 

REG(*) BYTE DATA /* REGISTER NAMES */ 
(' AXBXCXDXSPBPSIDICSDSSSESIPFL'), 

REGSINDEX WORD, 

REG$SAV( 14) WORD, /* USER'S SAVED REGS */ 

КЕСФОКО(%) BYTE DATA 
(7,5,1,53,2,0,9,11,12,8,13), 

SP LITERALLY 'REGS$SAV( 4)', 

BP LITERALLY 'REG$SAV( 5)', 

CS LITERALLY 'REG$SAV( 8)', 

DS LITERALLY 'REG$SAV( 9)', 

SS LITERALLY 'REG$SAV(10)', 

ES LITERALLY 'REGS$SAV(11)', 

IP LITERALLY 'REG$SAV(12)', 

FL LITERALLY 'REG$SAV(13)'; 


1*9 2 k k k He k He He He k k k k e He ie He e K K k k koko koko k He e He ko se 


* BOOTSTRAP JUMP AND 8089 VECTOR * 


He He e she k k e k kok k kekok k kekok ko He e koko e He He ΚΑΛΑ ΧΑΑ ΑΧ ΑΧ / 


/* THIS BOOT CONSISTS OF A LONG JUMP TO THE BEGINNING OF THE MONITOR 
AT FF00+XXXX WHERE XXXX IS THE STARTING ADDRESS OFFSET (IP) AND 
MUST BE DETERMINED AFTER EACH COMPILE. */ 
13 1 DECLARE 

START$ADDR LITERALLY ‘OOA8H', /* STARTING ADDRESS */ 
BOOT1(*) BYTE AT (OFFFFOH) DATA (OEAH), /* LONG JUMP OPCODE */ 
BOOT2(*) WORD AT (OFFFF1H) DATA (STARTSADDR), 
BOOT3(*) WORD AT (ОҒҒҒҒЗН) DATA (OFFOOH); /* SEGMENT ADDRESS! */ 


/* THIS TWO-WORD DATA IS A JUMP TO THE STARTING ADDRESS AND IS LOCATED 
AT THE FIRST LOCATION OF ROM (NO OTHER DATA OR CONSTANT DECLARATIONS 
MAY PRECEDE IT). THE JUMP IS ACTUALLY TO (START-ADDR)-4 SINCE THE 
INSTRUCTION IS A RELATIVE JUMP OF LENGTH 3. */ 
14 1 DECLARE 
BOOT4(*) WORD DATA (OE990H,STARTSADDR-4); /% NOP,JMP START-ADDR */ 


/* THIS BLOCK OF ROM AT FFFF6-FFFFA IS INITIALIZED FOR THE 8089 
DEVICE AND POINTS TO A BLOCK OF RAM AT 0100H. */ 
1 1 DECLARE 
BLOCK$8089 WORD AT (OFFFF6H) DATA (00001H), 
BLOCK$8089$PTR POINTER AT (OFFFF8H) DATA (00100H); 


уы tede he He Hee e he He e e he He ee he He e e de He e e he he de de he 
* FILL DECLARATIONS SECTION * 


Yk e je dee sk sk dee sk sk sk sk sk k sk sk йада kes e e se e se se f 
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/* THESE DECLARATIONS DEFINE FILL CHARACTERS FOR ALL UNUSED 
LOCATIONS IN THE ROM ADDRESS SPACE. ANY MODIFICATION TO THE CODE 
THAT CHANGES THE USED LOCATIONS IN THE ROM REQUIRES 
MODIFICATION OF THIS SECTION. */ 


16 1 DECLARE 


F LITERALLY 'OFFH', 


FILL1(*) BYTE AT (OFFFDBH) DATA (F,F,F,F,F), 
FILL2(*) BYTE AT (OFFFEOH) DATA (F,F,F,F,F 


a ο ο T2, 


FILLS(*) BYTE AT (ΟΕΕΕΕΣΗ) DATA (F), 
FILLA(*) BYTE AT (OFFFFCH) DATA (F,F,F,F); 


/* Je se e e e e e e e ee dee e e e e e e e ee e k e e e e ee e e e ee e ee de de e dede dede ede dede ee dee dee k dee ede k kk kk 
Je e e e e e e e de e de ee e de e e e e ee e dede e e k kk k dee e dee e dee e e e dede e ee dee e e de ee e dee e dee ἐς kk kk k 


COMMON PROCEDURES 


THIS MODULE CONTAINS THOSE LOWER LEVEL PROCEDURES CALLED BY HIGHER 


LEVEL ROUTINES. 


MODULE ORGANIZATION 


THIS MODULE IS DIVIDED INTO 4 SECTIONS AS FOLLOWS: 


1. BASIC I/O SECTION 
SIOSCHARSRDY 


S IOSCHECKSCONTROLSCHAR 


SIOSOUTSCHAR 
SIOSGETSCHAR 
SIOSOUTSBYTE 
SIO$OUT$WORD 
SIOSOUTSBLANK 
SIOSOUTSSTRING 
SIOSOUTSHEADER 


INPUT CHARACTER READY 

CHECK FOR CONTROL CHARACTER 
OUTPUT CHARACTER 

INPUT A CHARACTER 

OUTPUT A BYTE IN HEX 

OUTPUT A WORD IN HEX 

OUTPUT A SINGLE BLANK 

OUTPUT A STRING 

OUTPUT A PAPER TAPE HEADER 


2. UTILITY ROUTINES SECTION 


SIOS$VALIDSHEX 
SIOSHEX 
SIOSVALIDSREGSFIRST 
SIO$VALIDSREG 
SIOSCRLF 
SIOSTESTSWORDSMODE 
SIOSSCANSBLANK 


TEST FOR VALID HEX CHAR 

CONVERT TO HEX FROM ASCII 

TEST FOR VALID REGISTER FIRST CHAR 
TEST FOR VALID REGISTER NAME 
OUTPUTS A CR AND LF 

TEST FOR A 'W' IN COMMAND 

SCANS FOR OPTIONAL BLANK 


3. ARGUMENT EXPRESSION EVALUATION SECTION 


SIOS$GET$WORD 
510%СЕТФАООЕ 
SIOSUPDATESIP 


GET AN WORD EXPRESSION 
GET AN ADDRESS EXPRESSION 
OPTIONAL UPDATE OF CS:IP 


4. PAPER TAPE READ SECTION 


SIOSREADSCHAR 
SIOSREADSBYTE 
SIOSREADSWORD 


READ CHAR FROM TTY READER 
READ A BYTE 
READ A WORD 


5. INTERRUPT AND RESTORE/EXECUTE ROUTINES 


SAVESREGISTERS 
RESTORESEXECUTE 


SAVES USER REGISTERS 
RESTORE MACHINE STATE AND EXEC 
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INTERRUPT 1$bENTRY INTERRUPT ROUTINE FOR SINGLE STEP 
INTERRUPTSSENTRY INTERRUPT ROUTINE FOR GO 
INITSINTSVECTOR INITIALIZES INTERRRUPT VECTORS 

"f 


ымы ыы k kt k de He e ko koko ko koko k k 


* BASIC I/O SECTION * 
мды) 


17 1 SIOSCHARSRDY : 
; STATEMENT # 17 
/* TESTS FOR INPUT CHARACTER PENDING BY READING THE STATUS PORT 
AND MASKING WITH SIOSRXRDY(READ DATA READY). RETURNS TRUE IF 
NOT ЕМРТҮ(СНАК PENDING) AND FALSE IF NO CHAR PENDING */ 


SIOCHARRDY PROC NEAR 
02А0 55 PUSH BP 
02A1 8ВЕС MOV BP,SP 
PROCEDURE BYTE; 
18 2 IF C(INPUT(SIOSSTAT$PORT) AND SIOSRXRDY)20 THEN RETURN FALSE; 
; STATEMENT # 18 
O2A3 BAF2FF MOV DX,OFFF2H 
02A6 EC IN DX 
02A7 A802 TEST AL , 2H 
02A9 7504 JNZ 91 
; STATEMENT # 19 
02AB ΒΟΟΟ MOV AL , OH 
O2AD 5D POP BP 
O2AE C3 RET 
91: 
20 2 RETURN TRUE; 
; STATEMENT $ 20 
O2AF BOFF MOV AL , ОРЕН 
02B1 5D POP BP 
02B2 C3 RET 
21 2 END; 
; STATEMENT # 21 
SIOCHARRDY ENDP 
22 1 SIOSCHECKSCONTROLSCHAR: 


; STATEMENT # 22 
/* THIS ROUTINE CHECKS IF A CONTROL CHARACTER HAS BEEN INPUT TO 
THE SERIAL PORT. AFTER A CONTROL-S IT WAITS FOR A CONTROL-Q BEFORE 
RETURNING TO THE CALLER. A CONTROL-C CAUSES A JUMP TO THE ERROR 


ROUTINE. */ 
SIOCHECKCONTROLCHAR PROC NEAR 
0283 55 PUSH ВР 
0284 8ВЕС МОУ ВР,5Р 
PROCEDURE; 
23 2 CHAR = INPUT(SIOSDATASPORT) AND 07ҒН; 
; STATEMENT # 23 

0286 BAFOFF MOV DX, OFFFOH 

02B9 EC IN DX 

02BA 247F AND AL ,7FH 

02BC А26600 MOV CHAR, AL 
24 2 IF CHAR=13H THEN /* CONTROL-S ? */ 


; STATEMENT # 24 
O2BF 3С13 CMP AL, 15H 
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02C1 7520 JNZ a2 
05 2 DO WHILE CHAR<>11H; /* CONTROL-Q %/ 
; STATEMENT # 25 
9121: 
02C3 803Е660011 СМР CHAR, 11H 
02C8 7423 JZ 95 
26 3 IF SIOSCHARSRDY THEN 
; STATEMENT # 26 
O2CA E8D3FF CALL SIOCHARRDY 
0200 0008 RCR AL, 1 
O2CF 73F2 JNB 9121 
27 3 DO; 
28 4 CHAR = INPUT(SIOSDATASPORT) AND O7FH; 
; STATEMENT # 28 
0201 BAFOFF MOV DX,OFFFOH 
02D4 EC IN DX 
0205 247Е AND AL, 7FH 
02D7 A26600 MOV CHAR,AL 
29 6 IF CHAR=03H THEN GOTO ERROR; 
: STATEMENT # 29 
02DA 32005 CMP AL, 3H 
O2DC 7503 JNZ $+5H 
02DE E925FF JMP ERROR 
31 4 END; 
Se 3 END; 
; STATEMENT # 32 
02E1 ΕΒΕΟ JMP 9121 
a2: 
33 2 ELSE IF CHAR = O3H THEN GOTO ERROR; 
; STATEMENT # 33 
02E3 803Е660003 CMP CHAR, 3H 
0268 7503 JNZ $+5H 
O2EA Е919ҒҒ JMP ERROR 
; STATEMENT # 34 
95: 
END SIOSCHECKSCONTROLSCHAR; 
; STATEMENT # 35 
O2ED 5D POP BP 
O2EE C3 RET 
SIOCHECKCONTROLCHAR ENDP 
36 1 SIOSOUTSCHAR: 
; STATEMENT # 36 
/* THIS ROUTINE OUTPUTS THE INPUT PARAMETER TO THE USART OUTPUT 
PORT WHEN USART IS READY FOR OUTPUT (XMIT BUFFER EMPTY). */ 
SIOOUTCHAR PROC NEAR 
O2EF 55 PUSH BP 
02Ғ0 8ВЕС МОУ ВР,5Р 
PROCEDURE (C) ; 
37 2 DECLARE C BYTE; 
38 2 IF SIOSCHARSRDY THEN CALL SIOSCHECKSCONTROLSCHAR; 
; STATEMENT # 38 
022 ЕВАВҒҒ CALL SIOCHARRDY 
O2F5 D0D8 RCR AL ,1 
02Ғ7 7303 JNB 9123 


; STATEMENT # 39 
O2F9 E8B7FF CALL SIOCHECKCONTROLCHAR 
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40 2 DO WHILE C(INPUT(SIOSSTATSPORT) AND SIOSTXRDY 20; END; 
; STATEMENT Ж 40 
9123: 
O2FC BAF2FF MOV DX,OFFF2H 
O2FF EC IN DX 
0300 A801 TEST AL, 1H 
0302 74F8 JZ 9123 
42 2 OUTPUT(SIOSDATASPORT) = C; 
; STATEMENT # 42 
0304 BAFOFF MOV DX, OFFFOH 
0307  8A4604 MOV AL, [BP] .C 
030A EE OUT DX 
43 2 END; 
: STATEMENT # 43 
030B 5D POP BP 
030C С20200 RET 2H 
SIOOUTCHAR ENDP 
44 1 SIOSGETSCHAR: 
; STATEMENT # 44 
/* THIS ROUTINE INPUTS A CHARACTER FROM THE INPUT PORT AND RETURNS 
WITH IT IN THE GLOBAL 'CHAR'. THE CHARACTER IS ECHOED TO THE 
OUTPUT PORT IF PRINTABLE. */ 
SIOGETCHAR PROC NEAR 
O30F 55 PUSH BP 
0310 8ВЕС MOV BP, SP 
PROCEDURE ; 
45 2 DO WHILE (INPUT(SIOSSTATSPORT) AND SIOSRXRDY)z0; END; 
; STATEMENT # 45 
9125: 
0312 BAF2FF MOV DX,OFFF2H 
0315 EC IN DX 
0316 А802 TEST AL , 2H 
0318 74F8 JZ 9125 
47 2 CHAR = INPUT(SIOSDATASPORT) AND 07ҒН; 
; STATEMENT # 47 
031A BAFOFF MOV DX, OFFFOH 
031D EC IN DX 
031E 247F AND AL ,7FH 
0320 А26600 MOV CHAR,AL 
48 2 IF CHAR>=ASBL THEN CALL SIOSOUTSCHAR(CHAR); 
; STATEMENT # 48 
0323 3620 CMP AL , 20H 
0325 7207 JB 98 
; STATEMENT # 49 
0327 FF366600 PUSH CHAR 5.24 
0328 Е8СІҒҒ CALL SIOOUTCHAR 
98: 
50 2 END; 
; STATEMENT # 50 
032Е 50 POP BP 
032Е СЗ RET 
SIOGETCHAR ENDP 
51 1 SIOSOUTSBYTE: 


; STATEMENT # 51 


/* THIS ROUTINE OUTPUTS THE SINGLE INPUT PARAMETER TO THE USART 
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IN ASCII HEXADECIMAL FORMAT. */ 


SIOOUTBYTE PROC NEAR 
0330 55 PUSH BP 
0331 8BEC MOV BP,SP 
PROCEDURE (B); 
52 2 DECLARE B BYTE; 
53 2 CALL SIOSOUTS$CHAR(ASCII(SHR(B,4) AND OFH)); 
; STATEMENT # 53 
0333 8A5E04 MOV BL, [BP] .B 
0336 B104 MOV CL,4H 
0338 D2EB SHR BL,CL 
033A 80E30F AND BL,OFH 
0330 В700 MOV BH,OH 
O33F 2EFF/73E PUSH CS:ASCII [BX] 
0343 ES8A9FF CALL SIOOUTCHAR 
54 2 CALL SIOSOUTSCHAR(ASCII(B AND OFH)); 
; STATEMENT # 54 
0346 8A5E04 MOV BL, [BP].B 
0349 80E30F AND BL ,ОҒН 
034C B700 MOV ΒΗ, OH 
034E 2EFF/73E PUSH CS:ASCII [BX] 
0352 E89AFF CALL SIOOUTCHAR 
23 2 CHECK$SUM = CHECK$SUM - B; 
; STATEMENT # 55 
0355  8A4604 MOV AL, [BP] .B 
0358 28066700 SUB CHECKSUM, AL 
56 2 END; 
; STATEMENT # 56 
035C 5D POP BP 
035D C20200 RET 2H 
SIOOUTBYTE ENDP 
S, A SIO$OUT$WORD: 


; STATEMENT # 57 
/* THIS ROUTINE OUTPUTS THE INPUT PARAMETER AS 4 ASCII HEXADECIMAL 
CHARACTERS TO THE USART OUTPUT PORT. */ 


SIOOUTWORD PROC NEAR 
0360 55 PUSH BP 
0361 8ВЕС MOV BP,SP 
PROCEDURE (W) ; 
58 2 DECLARE W WORD; 
99 2 CALL SIOSOUTSBYTECHIGH(W)); 
; STATEMENT # 59 
0363 884604 MOV AX, [BP] .W 
0366 88E0 MOV AL , AH 
0368 50 PUSH AX ДЫ 
0369 ES8C4FF CALL SIOOUTBYTE 
60 2 CALL SIOS$OUTS$BYTE(LOW(W)); 
; STATEMENT # 60 
036C 8B4604 MOV AX, [BP] .W 
056Ғ 50 PUSH AX "ab 
0370 E8BDFF CALL SIOOUTBYTE 
61 2 END; 
; STATEMENT # 61 
0373 5D POP BP 
0374  C20200 RET 2H 


SIOOUTWORD ENDP 
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62 


63 


65 


69 


70 


71 


72 


Nm гә 


0377 
0378 


037A 
0375 
037D 


0380 
0381 


0382 
0383 


0385 


038A 
038D 
038F 
0391 
0394 
0398 


039A 
039D 
039F 
03A1 
03A4 
03A7 


O3AA 


ОЗАР 


03B1 
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SIOSOUTSBLANK: 


; STATEMENT # 62 


/* THIS ROUTINE OUTPUTS ONE BLANK. */ 


SIOOUTBLANK PROC NEAR 
55 PUSH BP 
8BEC MOV BP,SP 
PROCEDURE ; 
CALL SIOSOUTSCHAR(ASBL); 
; STATEMENT # 63 
B020 MOV AL, 20H 
50 PUSH AX $3 
E86F FF CALL SIOOUTCHAR 
END; 
; STATEMENT # 64 
5D POP BP 
C3 RET 
SIOOUTBLANK ENDP 
SIOSOUTSSTRING: 
; STATEMENT # 65 
/* OUTPUTS A STRING POINTED TO BY THE FIRST PARM. */ 
SIOOUTSTRING PROC NEAR 
55 PUSH BP 
8BEC MOV BP, SP 
PROCEDURE(PTR); 
DECLARE PTR POINTER, STR BASED PTR (1) BYTE; 
I = 0; 
; STATEMENT # 67 
C606680000 MOV 1,0H 
DO WHILE STR(I)<>0; 
; STATEMENT # 68 
9127: 
A06800 MOV AL,I 
B400 MOV AH , OH 
89C6 MOV 51 ,AX 
C45E04 LES BX, [BP] .PTR 
26823800 CMP ES: [BX] . STRISI] ,OH 
7417 JZ 9128 
CALL SIOSOUTSCHAR(STR(I)); 
; STATEMENT # 69 
A06800 MOV AL, I 
B400 MOV AH, OH 
89C6 MOV SI, ΑΧ 
C45E04 LES BX, [BP] .PTR 
26FF30 PUSH ES: [BX] . STRISI] 
EBA5FF CALL SIOOUTCHAR 
I = I + 1; 
; STATEMENT # 70 
8006680001 ADD І,ІН 
END; 
; STATEMENT # 71 
EBD9 JMP 9127 
9128: 
END; 
; STATEMENT # 72 
5D POP BP 
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76 


7? 


78 


79 


80 


81 


82 


83 


0382 C20400 КЕТ 4H 
SIOOUTSTRING ENDP 


SIOSOUTSHEADER: 
; STATEMENT # 73 
/* THIS ROUTINE OUTPUTS THE PAPER TAPE HEADER CONSISTING OF ':' 
FOLLOWED BY THE RECORD LENGTH, LOAD ADDRESS, AND THE RECORD TYPE. 
IT INITIALIZES THE CHECKSUM TO ZERO. */ 


SIOOUTHEADER PROC NEAR 
03B5 55 PUSH BP 
0386 8BEC MOV BP, SP 


PROCEDURE (LENGTH, LOADSADDR , RECSTYPE); 
DECLARE (LENGTH,RECSTYPE) BYTE, LOADSADDR WORD; 
CALL SIOSOUT$CHAR(':'); 
; STATEMENT # 75 


03B8 BO3A MOV AL, 3AH 
03BA 50 PUSH AX ; 1 
03BB E831FF CALL — SIOOUTCHAR 


СНЕСКФ5ЦМ = 0; 
; STATEMENT # 76 
03ΒΕ  C606670000 MOV CHECKSUM, OH 
CALL SIOSOUTSBYTE(LENGTH) ; 
; STATEMENT # 77 
03635 FF7608 PUSH [BP].LENGTH; 1 
03С6 Εδό7ΕΕ CALL SIOOUTBYTE 
CALL SIOSOUTSWORD(LOADS$ADDR); 
; STATEMENT # 78 
0369 FF7606 PUSH [BP] .LOADADDR; 1 
O3CC E891FF CALL SIOOUTWORD 
CALL SIOSOUTSBYTE(RECS$TYPE); 
; STATEMENT # 79 


O3CF FF7604 PUSH [BP] .RECTYPE; 1 
0302 Е85ВҒҒ CALL SIOOUTBYTE 
END; 
; STATEMENT # 80 
0305 5D POP BP 
03D6 C20600 RET 6H 
SIOOUTHEADER ENDP 


SIO$8251$SETTLINGS$DELAY: 
; STATEMENT # 81 
/* THIS DELAY ROUTINE ALLOWS THE USART SUFFICIENT TIME 
TO SETTLE AFTER WRITE OPERATIONS. */ 


$108251SETTLINGDELAY PROC NEAR 
0309 55 PUSH BP 
03DA 8ВЕС MOV BP,SP 
PROCEDURE; 


I = SHRCOFFH,OFFH); 
; STATEMENT # 82 


050С BOFF MOV AL, ОРЕН 

OSDE ΒΊΓΕ MOV CL,OFFH 

05Е0 D2E8 SHR AL, CL 

05Е2 A26800 MOV I,AL 
END; 


; STATEMENT # 83 
05Е5 50 РОР ВР 
03Е6 СЗ КЕТ 
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SIO8251SETTLINGDELAY ENDP 


/ κκ αὶ κκ ыы He He de He He e He He He He He e He He e He He He КЭК 


* UTILITY ROUTINES SECTION * 


Yk e k kek kekok He He kekok ΑΛΑ 1 


84 1 SIO$VALID$HEX: 
; STATEMENT # 84 
/* THIS ROUTINE TESTS IF THE INPUT PARM IS A VALID ASCII HEX DIGIT 
AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO AND FALSE 


IF NOT. */ 
SIOVALIDHEX PROC NEAR 
03E7 55 PUSH BP 
OSE8 8ВЕС MOV BP,SP 
PROCEDURE (H) BYTE; 
85 2 DECLARE H BYTE; 
86 2 DO 1=0 TO LAST(ASCII); 
: STATEMENT # 86 
OSEA С606680000 MOV 1,0H 
9129: 
ОЗЕР 803Е68000Ғ CMP I,0FH 
O3F4 771A JA 9130 
87 3 IF HZASCIICI) THEN RETURN TRUE; 
; STATEMENT # 87 
OSF6 8A4604 MOV AL, [BP] . H 
039 8A1E6800 MOV BL,I 
OSFD В700 MOV BH, OH 
OSFF 2E3A473E CMP AL, CS:ASCII [BX] 
0403 7504 JNZ 99 
; STATEMENT # 88 
0405 BOFF MOV AL, OFFH 
0407 ЕВ09 JMP 93 
99: 
89 3 END; 
; STATEMENT # 89 
0409 8006680001 ADD I, 1H 
040E 75DF JNZ 9129 
9130: 
90 2 RETURN FALSE; 
; STATEMENT # 90 
0410 B000 MOV AL , OH 
93: 
0412 5D POP BP 
0413 C20200 RET 2H 
9 2 END; 
; STATEMENT # 91 
SIOVALIDHEX ENDP 
92 1 SIO$HEX: 


; STATEMENT # 92 
/* THIS ROUTINE CONVERTS THE INPUT PARM FROM ASCII TO ITS BINARY 
EQUIVALENT AND RETURNS IT AS THE VALUE OF THE PROCEDURE. NO CHECK 
IS MADE FOR INPUT VALIDITY. */ 
SIOHEX PROC NEAR 
0416 55 PUSH BP 
0417 8ВЕС MOV BP,SP 
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PROCEDURE(C) WORD; 


93 2 DECLARE C BYTE; 
94 2 IF С<-!9! THEN RETURN DOUBLE(C-30H); 
; STATEMENT # 94 
0419 807Е0439 CMP [BP] .C,39H 
041D 7707 JA 910 
; STATEMENT # 95 
041F 8A4604 » MOV AL, [BP] .C 
0422 2C30 SUB AL, 50H 
0424 ЕВ05 JMP a4 
910: 
96 2 ELSE RETURN DOUBLE(C- 37H); 
; STATEMENT # 96 
0426 8A4604 MOV AL, [BP] .C 
0429 2C37 SUB AL,37H 
94: 
0428 B400 MOV AH , OH 
042D 5D POP BP 
042E С20200 RET 2H 
97 2 END; 
SIOHEX ENDP 
98 1 SIOSVALIDSREGSFIRST: 


; STATEMENT # 98 
/* THIS ROUTINE CHECKS IF 'CHAR' IS A VALID FIRST LETTER OF A REGISTER 
NAME AND RETURNS TRUE AS THE VALUE OF THE PROCEDURE IF SO. */ 


SIOVALIDREGF IRST PROC NEAR 
0431 55 PUSH BP 
0432 8ВЕС MOV BP,SP 
PROCEDURE BYTE; 
99 2 DO ΙΞ0 TO 26 BY 2; 
; STATEMENT # 99 
0434 С606680000 MOV 1,0H 
0439 EBO7 JMP 9133 
9131: 
0438 8006680002 ADD I eH 
0440 721A JB 9132 
9133: 
0442 803Е68001А СМР I, ТАН 
0447 7713 ЈА 9132 
100 3 IF СНАК-КЕС(І) THEN RETURN TRUE; 
; STATEMENT # 100 
0449  A06600 MOV AL , CHAR 
044C 8A1E6800 MOV BL,I 
0450 B700 MOV BH, OH 
0452 2Е3А4758 CMP AL, CS:REGI[BX] 
0456 75Ε3 JNZ 9131 
; STATEMENT # 101 
0458 BOFF MOV AL , OFFH 
045A 5D POP BP 
045B C3 RET 
102 3 END; 
; STATEMENT # 102 
9132: 
103 2 RETURN FALSE; 


; STATEMENT # 103 
045С B000 MOV AL , OH 
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045Е 5D POP BP 
045F C3 RET 
104 2 END; 
; STATEMENT # 104 
SIOVALIDREGFIRST ENDP 


105 1 SIOSVALIDSREG: 
: 4 STATEMENT # 105 
/* THIS ROUTINE CHECKS IF THE TWO INPUT PARMS TAKEN TOGETHER FORM 
A VALID REGISTER NAME. IT SEARCHES THE REGISTER TABLE AND IF A 
MATCH IS FOUND, THE GLOBAL 'REGSINDEX' IS SET TO THE INDEX OF THE 
VALID REGISTER AND THE PROCEDURE RETURNS TRUE. IF NO MATCH THE 
PROCEDURE RETURNS FALSE AND REGSINDEX IS UNDEFINED. */ 
SIOVALIDREG PROC NEAR 
0460 55 PUSH ВР 
0461 8ВЕС MOV BP, SP 
PROCEDURE (C1,C2) BYTE; 
106 2 DECLARE (C1,C2) BYTE; 
107 2 DO REGSINDEX=0 TO 13; 
; STATEMENT # 107 
0463 С7062Е000000 моу REGINDEX, OH 


9134: 
0469 833E2E000D CMP REGINDEX , Орн 
046E 7731 JA 9135 
108 3 IF C1-REG(REGSINDEX*2) AND C2-REG(REGS$INDEX*2*1) THEN 
; STATEMENT # 108 
0470 8B1E2E00 MOV BX,REGINDEX 
0474 01ЕЗ SHL BX,1 
0476 8A4606 MOV AL, [BP] .C1 
0479 2E3A4758 CMP AL,CS:REG [BX] 
047D BOFF MOV AL, OFFH 
Ο47Ε 7401 JZ $+3H 
0481 40 INC AX 
0482 8A4E04 MOV CL, [ΒΡ] .C2 
0485 50 PUSH AX ; 1 
0486 2E3A4F59 CMP CL,CS:REG [BX*1H] 
048A BOFF MOV AL , OFFH 
048C 7401 JZ $+3H 
048E 40 INC AX 
048F 59 POP CX 27] 
0490 22С1 AND AL,CL 
0492 D058 RCR AL, 1 
0494 7304 JNB 913 
109 3 RETURN TRUE; 
; STATEMENT # 109 
0496 BOFF MOV AL, OFFH 
0498 ЕВ09 JMP 36 
913: 
110 3 END; 
; STATEMENT # 110 
049A 83062Е0001 ADD REGINDEX, 1H 
049Е 73C8 JNB 9134 
9135: 
111 2 RETURN FALSE; 
; STATEMENT # 111 
04A1 B000 MOV AL , OH 


a6: 
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11e 


113 


114 


115 


116 


117 


118 


119 


120 


121 
122 


123 


124 


04A3 
04A4 


04A7 
04A8 


O4AA 
04АС 
04AD 


04B0 
04B2 
04B3 


04B6 
04B7 


04B8 
04B9 


04BB 


04CO 


04C3 
04C8 


04СА 


O4CF 
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5D POP BP 
C20400 RET 4H 
END; 
; STATEMENT # 112 
SIOVALIDREG ENDP 
SIOSCRLF: 
; STATEMENT # 113 
/* THIS ROUTINE OUTPUTS A CR AND LF TO THE OUTPUT PORT. */ 
SIOCRLF PROC NEAR 
55 PUSH BP 
8BEC MOV BP,SP 
PROCEDURE ; 
CALL SIOSOUTSCHAR(ASCR); 
; STATEMENT # 114 
BOOD MOV AL , ODH 
50 PUSH AX . 1 
E8SFFE CALL SIOOUTCHAR 
CALL SIOSOUTSCHAR(ASLF); | 
; STATEMENT # 115 
BOOA MOV AL, OAH | 
50 PUSH AX am 
E839FE CALL SIOOUTCHAR 
END; 
; STATEMENT # 116 
5D POP BP 
C3 RET 
SIOCRLF ENDP 
SIOSTESTSWORDSMODE : 
; STATEMENT # 117 
/* THIS PROCEDURE TESTS FOR A 'W' FOLLOWING THE COMMAND AND IF SO 
SETS THE FLAG 'WORDSMODE TO TRUE OR FALSE OTHERWISE. SCANS ΟΕΕ 
OPTIONAL BLANK FOLLOWING COMMAND. */ 
SIOTESTWORDMODE PROC NEAR 
55 PUSH BP 
8BEC MOV BP, SP 
PROCEDURE; 
WORDSMODE = FALSE; 
; STATEMENT # 118 
C606690000 MOV WORDMODE , OH 
CALL SIOSGETSCHAR; 
; STATEMENT # 119 
E84CFE CALL SIOGETCHAR 
IF CHAR='W' THEN 
; STATEMENT # 120 
805Е660057 СМР СНАК,5/Н 
7508 JNZ 914 
DO; 
WORD$MODE = TRUE; 
; STATEMENT £ 122 
C6066900FF MOV WORDMODE , OFFH 
CALL SIOSGETSCHAR; 
; STATEMENT # 123 
E83DFE CALL SIOGETCHAR 
END; 


914: 
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125 2 IF CHAR=ASBL THEN 
; STATEMENT # 125 
0402 803Е660020 СМР CHAR , 20H 
04D7 7503 JNZ 915 
126 2 CALL SIOSGET$CHAR; 
; STATEMENT # 126 
0409 E833FE CALL SIOGETCHAR 
915: 
127 2 END; 
; STATEMENT # 127 
O4DC 5D POP BP 
0400 C3 RET 
SIOTESTWORDMODE ENDP 
128 1 SIOSSCANSBLANK: 


; STATEMENT # 128 
/* THIS ROUTINE IS CALLED AFTER A COMMAND LETTER TO SCAN OFF THE 
OPTIONAL BLANK. */ 


SIOSCANBLANK PROC NEAR 
04DE 55 PUSH BP 
O4DF 8ВЕС MOV BP,SP 
PROCEDURE ; 
129 2 CALL SIOSGETSCHAR; 
; STATEMENT # 129 
O4E1 E82BFE CALL SIOGETCHAR 
130 2 IF CHAR=ASBL THEN 
; STATEMENT # 130 
04E4 803Е660020 CMP CHAR, 20H 
04Е9 7503 JNZ 916 
131 2 CALL SIOSGETSCHAR; 
; STATEMENT # 131 
O4EB Е821ҒЕ CALL SIOGETCHAR 
916: 
132 2 END; 
; STATEMENT # 132 
O4EE 50 POP BP 
O4EF C3 RET 
SIOSCANBLANK ENDP 


Паола ыы He e He He e He He e He He he He He He He He He e He He ы He Fe e He 


* ARGUMENT EXPRESSION EVALUATOR SECTION * 


Fe e He He Fe k k k kok k He He e kok ok ko He He He He e He ΧΑΑ He e ΑΧ He He e Te kok k he e He К / 


133 1 SIO$GET$WORD: 
; STATEMENT # 133 
/* THIS ROUTINE READS CHARS FROM THE INPUT PORT AND EVALUATES 
AN EXPRESSION CONSISTING OF !%-! AND OPERANDS OF HEX NUMBERS 
AND REGISTER NAMES. */ 


SIOGETWORD PROC NEAR 
04Ғ0 55 PUSH BP 
04Ғ1 8ВЕС MOV BP,SP 
PROCEDURE WORD; 
134 2 DECLARE (SAVE,W) WORD, (OPER,T) BYTE; 
135 2 OPER = '*'; 


; STATEMENT # 135 
04F3 С606680028 MOV OPER, 2BH 
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16 2 
04Ғ8 
137 2 
138 5 
04ҒЕ 
0501 
139 5 
0504 
140 3 
050A 
050D 
050F 
141 3 
142 4 
0511 
143 4 
0514 
0518 
051C 
051F 
0521 
144 4 
145 5 
0523 
0527 
0529 
052C 
146 5 
052F 
147 5 
0532 
0537 
0539 
053C 
0540 
148 5 
149 4 
0542 
0546 
0549 
150 4 
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= 0; 
; $ТАТЕМЕМТ 
C7064E000000 MOV W, OH 
DO WHILE TRUE; 
; STATEMENT 
9136: 
T = CHAR; 
; STATEMENT 
A06600 MOV AL , CHAR 
A26C00 MOV T,AL 
SAVE = 0; 
; STATEMENT 
C7064C000000 MOV SAVE , 0H 


IF SIOSVALIDS$REGSFIRST THEN 


; STATEMENT 
E824FF CALL SIOVALIDREGFIRST 
0008 RCR AL, 1 
733B JNB 917 
DO; 
CALL SIOSGETSCHAR; 
; STATEMENT 
E8FBFD CALL SIOGETCHAR 
IF SIO$VALIDSREG(T,CHAR) THEN 
; STATEMENT 
FF366C00 PUSH T Ae 
FF366600 PUSH CHAR 4:2 
E841FF CALL SIOVALIDREG 
0008 RCR AL, 1 
751Ғ JNB 918 
DO; 
SAVE = REGSSAV(REGSINDEX); 
; STATEMENT 
8B1E2E00 MOV ВХ, REGINDEX 
D1E3 SHL BX, 1 
8B4730 MOV AX , REGSAV [BX] 
A34C00 MOV SAVE , AX 
CALL SIOSGETSCHAR; 
; STATEMENT 
E8DDFD CALL SIOGETCHAR 
GOTO EVAL; 
; STATEMENT 
97: 
803E6B002B CMP OPER, 2BH 
7548 JNZ EVAL 
А14С00 MOV AX,SAVE 
01064E00 ADD W,AX 
EB46 JMP 922 
END; 
; STATEMENT 
918: 
ELSE 
SAVE = SIOSHEX(T); 
; STATEMENT 
FF366C00 PUSH T NC 
E8CDFE CALL SIOHEX 
A34C00 MOV SAVE , AX 


END; 


# 


LI 


136 


137 


138 


139 


140 


142 


143 


145 


146 


147 


148 


149 


PAGE 
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917: 
151 3 IF NOT(SIOSVALIDS$HEX(T)) THEN GOTO ERROR; 
; STATEMENT # 151 
054C FF366C00 PUSH T 23 
0550 Е894ҒЕ CALL SIOVALIDHEX 
0553 F6DO NOT AL 
0555 0008 RCR AL, 1 
0557 7303 JNB $+5H 
0559 ESAAFC JMP ERROR 
155 5 DO WHILE SIOSVALIDSHEX(CHAR); 
: STATEMENT # 153 
9138: 
055С FF366600 PUSH CHAR >] 
0560 E884FE CALL SIOVALIDHEX 
0563 D0D8 RCR AL,1 
0565 73СВ JNB a7 
154 4 SAVE = SHL(SAVE,4) + SIOSHEX(CHAR); 
; STATEMENT # 154 
0567 4А14С00 MOV АХ, SAVE 
056A B104 MOV CL,4H 
056C D3E0 SHL AX,CL 
056E 50 PUSH AX ; 1 
056F FF366600 PUSH CHAR 22/6 
0573 ЕВАОҒЕ CALL SIOHEX 
0576 59 POP CX а. i 
0577 0561 ADD AX , CX 
0579 A34C00 MOV SAVE , AX 
155 84 CALL SIOSGET$CHAR; 
; STATEMENT # 155 
057C E890FD CALL SIOGETCHAR 
156 4 END; 
; STATEMENT # 156 
057F EBDB JMP 9138 
57 3 EVAL: IF OPERz'*' THEN 
; STATEMENT # 157 
EVAL: 
158 3 W = W + SAVE; 
ELSE 
159 3 W = М - SAVE; 
; $ТАТЕМЕМТ # 159 
0581 A14c00 MOV AX, SAVE 
0584 29064E00 SUB W, ΑΧ 
a22: 
160 3 IF CHAR=ASCR OR CHARz':' OR CHARz',' THEN 
; STATEMENT # 160 
0588 A06600 MOV AL, CHAR 
058B  3COD CMP AL , ODH 
058D BOFF MOV AL , ОРЕН 
058F 7401 JZ $+3H 
0591 40 INC AX 
0592 50 PUSH AX ; 1 
0593 803E66003A СМР CHAR, ЗАН 
0598 BOFF MOV AL, ОРЕН 
059A 7401 JZ $+3H 
059C 40 INC AX 
0590 5ο POP CX . 1 


059E ОАС1 OR AL,CL 


19 
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05A0 50 PUSH AX 4-71 
0541 803E66002C CMP CHAR , 2CH 
05A6 BOFF MOV AL , OFFH 
05A8 7401 JZ $+3H 
05AA 40 INC AX 
05AB 59 POP CX . 1 
05АС ОАС1 OR AL,CL 
05АЕ D0D8 RCR AL, 1 
05B0 7305 JNB 923 
161 3 RETURN W; 
; STATEMENT # 161 
0582 A14E00 MOV AX,W 
05B5 5D POP BP 
05B6 C3 RET 
923: 
162 5 IF CHAR='+!' OR CHARz'-' THEN 
: STATEMENT # 162 
05B7 803Е66002В CMP CHAR , 2BH 
05BC ВОҒҒ MOV AL , OFFH 
O5BE 7401 JZ $+3H 
05С0 40 INC AX 
05c1 50 PUSH AX ; 1 
05С2 803E66002D СМР CHAR , 2DH 
0507 BOFF MOV AL, OFFH 
05659 7401 42 $+3H 
05CB 40 INC AX 
05CC 59 POP CX d 
05С0 OAC1 OR AL,CL 
05СҒ 0008 RCR AL,1 
0501 7203 JB $+5H 
0503 E930FC JMP ERROR 
163 3 OPER = CHAR; 
; STATEMENT # 163 
05D6 A06600 MOV AL , CHAR 
05D9 A26B00 MOV OPER,AL 
ELSE 
164 3 GOTO ERROR; 
165 3 CALL SIOSGETSCHAR; 
; STATEMENT # 165 
05DC E830FD CALL SIOGETCHAR 
166 3 END; 
; STATEMENT # 166 
OSDF Е91СҒҒ JMP 9136 
9137: 
167 2 END; 
; STATEMENT # 167 
05E2 5D POP BP 
O5ES СЗ RET 
SIOGETWORD ENDP 
168 1 SIOSGETSADDR: 
; STATEMENT # 168 
/* THIS ROUTINE ACCEPTS A VALID ADDRESS EXPRESSION CONSISTING 
OF AN OPTIONAL «SEG»: AND AN DISPLACEMENT. */ 
SIOGETADDR PROC NEAR 
05Е4 55 PUSH BP 
OSES 8BEC MOV BP, SP 
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169 
170 


171 


172 


173 
174 


175 


176 


177 


179 


180 


181 


182 


183 
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PROCEDURE (PTR, DEFAULTSBASE ) ; 
DECLARE PTR POINTER, DEFAULTSBASE WORD, 
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ARG BASED PTR STRUCTURE (OFF WORD, SEG WORD); 


ARG.SEG = DEFAULTSBASE; 
; STATEMENT 


05Ε7 884604 MOV AX, [BP] .DEFAULTBASE 
O5EA С45Е06 LES BX, [BP] .PTR 
O5ED 26894702 MOV ES:ARG [BX+2H] , AX 
ARG.OFF = SIOSGET$WORD; 
; STATEMENT 
05F1 Ε8ΕΟΕΕ CALL SIOGETWORD 
O5F4 С45Е06 LES BX, [BP] .PTR 
O5F7 268907 MOV ES:ARG [BX] , AX 
IF CHAR=':' THEN 
; STATEMENT 
05ΕΑ 805Е66005А CMP CHAR, 3AH 
OSFF 7520 JNZ 926 
DO; 
CALL SIOSGETSCHAR; 
; STATEMENT 
0601 E80BFD CALL SIOGETCHAR 
ARG.SEG = ARG.OFF; 
; STATEMENT 
0604 С45Е06 LES BX, [BP] .PTR 
0607 268807 MOV AX,ES:ARG [BX] 
060A 26894702 MOV ES:ARG[BX*2H] , AX 
ARG.OFF = SIOSGETSWORD; 
; STATEMENT 
060E E8DFFE CALL SIOGETWORD 
0611 С45Е06 LES BX, [BP] .PTR 
0614 268907 MOV ES:ARG [BX] , AX 
IF CHARz':' THEN GOTO ERROR; 
; STATEMENT 
0617 803E66003A CMP CHAR , 3AH 
061C 7503 JNZ $+5H 
061Е Е9Е5ҒВ JMP ERROR 
; STATEMENT 
END; 
926: 
END; 
; STATEMENT 
0621 5D POP BP 
0622  C20600 RET 6H 
SIOGETADDR ENDP 
SIOSUPDATESIP: 
; STATEMENT 
/* THIS PROCEDURE IS CALLED BY SINGLE STEP 
IP AND INSTRUCTION BYTE AND OPEN THE IP 
SIOUPDATEIP PROC NEAR 
0625 55 PUSH BP 
0626 8BEC MOV BP,SP 
PROCEDURE ; 
CALL SIOSOUTSBLANK; 
; STATEMENT 
0628 E84CFD CALL SIOOUTBLANK 


CALL SIOSOUTSWORD(IP); 


# 170 


# 171 


# 172 


# 174 


# 175 


# 176 


# 177 


# 178 


# 180 


# 181 
AND GO TO OUTPUT THE CURRENT 
FOR INPUT. */ 


# 182 
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; STATEMENT # 183 


062B FF364800 PUSH REGSAV+18H; 1 
062Е . E82EFD CALL SIOOUTWORD 
184 2 CSIP.SEG = CS; 
; STATEMENT # 184 
0632 A14000 MOV AX ,REGSAV+10H 
0635 A32800 MOV CSIP+2H,AX 
185 2 CSIP.OFF = IP; 
; STATEMENT # 185 
0638  A14800 MOV AX ,REGSAV+18H 
063B A32600 MOV CSIP,AX 
186 2 CALL SIOSOUTSCHAR('-'); 
; STATEMENT # 186 
063E  BO2D MOV AL,2DH 
0640 50 PUSH AX ; 1 
0641 EB8ABFC CALL SIOOUTCHAR 
187 2 CALL SIOSOUTSBLANK; 
; STATEMENT # 187 
0644 E830FD CALL SIOOUTBLANK 
188 2 CALL SIOSOUTSBYTE(MEMORYSCSIP); 
; STATEMENT # 188 
0647 C41E2600 LES BX,MEMORYCSIPPTR 
064B 26FF37 PUSH ES:MEMORYCSIP [BX] 
064E E8DFFC CALL SIOOUTBYTE 
189 2 CALL SIOSOUTSBLANK; 
; STATEMENT # 189 
0651 E823FD CALL SIOOUTBLANK 
190 2 CALL SIOSGETSCHAR; 
; STATEMENT # 190 
0654 E8B8FC CALL SIOGETCHAR 
191 2 IF СНАК<>!,! AND CHAR<>ASCR THEN CALL 510%СЕТФАООК(ӘС5ІР,С5); 
; STATEMENT # 191 
0657 803E66002C CMP CHAR , 2CH 
065C BOFF MOV AL , OFFH 
065Е 7501 JNZ $+3H 
0660 40 INC AX 
0661 50 PUSH AX 4-1 
0662 803Е660000 СМР CHAR , ODH 
0667 BOFF MOV AL , OFFH 
0669 7501 JNZ $+3H 
066B 40 INC AX 
066C 59 POP CX "e 
0660 22C1 AND AL,CL 
O66F 0008 RCR AL, 1 
0671 7300 JNB 928 
; STATEMENT # 192 
0673 80062600 LEA AX, CSIP 
0677 ЛЕ PUSH DS 577 
0678 50 PUSH AX "z 
0679 FF364000 PUSH REGSAV+10H; 3 
0670 E864FF CALL SIOGETADDR 
928: 
193 2 END; 
; STATEMENT # 193 
0680 5D POP BP 
0681 C3 RET 


SIOUPDATEIP ENDP 
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194 


195 
196 


197 


198 


199 


200 


201 


202 


203 


204 
205 
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* PAPER TAPE READ SECTION * 


Fe kk e k kekok ke k k He He sk ko Ae e He He He kok k oko oko ose / 


SIO$READ$CHAR: 
; STATEMENT # 194 

/* THIS PROCEDURE READS A BYTE FROM THE PAPER TAPE READER OF THE TTY 
BY ACTIVATING DTR, SAMPLING DSR FOR THE START BIT, DEACTIVATING 
DTR WHEN THE START BIT APPEARS, AND READING THE DATUM FROM THE 
USART. TO PROVIDE A HOLD-OFF CAPABILITY FOR THE LOAD COMMAND 
ONLY (NOT INTENDED FOR TTY PAPER TAPE) CONTROL-S WILL CAUSE THIS 
ROUTINE TO WAIT FOR A CORRESPONDING CONTROL-Q TO BE READ BEFORE 
CONTINUING. */ 


SIOREADCHAR PROC NEAR 
0682 55 PUSH BP 
0683 8ВЕС MOV BP,SP 


PROCEDURE BYTE; 
DECLARE DELAY WORD; 


LOOP: 
; STATEMENT # 196 
LOOP: 

OUTPUT(SIOSSTATSPORT) = SI0$8251$DTR$ON; /* DTR ON */ 
0685 BAF2FF MOV DX, OFFF2H 
0688 В027 MOV AL, 27H 
068A EE OUT DX 

DELAY = 0; 


; STATEMENT # 197 
068B 70650000000 моу DELAY, OH 
DO WHILE (INPUT(SIOSSTATSPORT) AND SIOSDSRDY)=0; /*WAIT STARTBIT*/ 
; STATEMENT # 198 


3140: 
0691 BAF2FF MOV DX, OFFF2H 
0694 EC IN DX 
0695 A880 TEST AL,80H 
0697 7517 JNZ 8141 


DELAY = DELAY + 1; 
; STATEMENT # 199 


0699 A15000 MOV AX ,DELAY 
069c 85С001 ADD ΑΧ, 1H 
069Ғ А35000 MOV DELAY , AX 


IF DELAY>=MAX$DELAY THEN 
; STATEMENT # 200 


06А2 301027 СМР AX , 2710H 
06A5  72EA JB 8140 
00; 
ОМТРОТ(510%5ТАТФРОКТ) = SIO$8251$CMND; /* DIR OFF */ 
; STATEMENT # 202 
O6A7 BAF2FF MOV DX,OFFF2H 
O6AA B025 MOV AL,25H 
O6AC EE OUT DX 


GOTO ERROR; 
; STATEMENT # 203 
O6AD  E956FB JMP ERROR 
END; 
END; 
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206 


207 


209 


210 


212 


213 


214 


215 


216 


217 


218 


06B0 
06B3 
0685 


0686 
0689 
06ВА 
O6BC 


O6BE 


06C1 
06C6 


06C8 
06СВ 
06СС 


06С0 
06СЕ 


0600 
0603 
0604 
0607 


060А 
0600 
060Ε 
06Е1 
06Е2 
06Е5 
06Е6 
06Е9 
O6EA 
O6EC 
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; STATEMENT # 205 


OUTPUT (SIO$STATSPORT) = SIO$8251$CMND; 


; STATEMENT # 206 
DX, OFFF2H 
AL, 25H 
DX 


PAGE 23 


/* DTR OFF */ 


DO WHILE (INPUT(SIOSSTATS$PORT) AND 5ΙΟΦΑΧΕΡΥ)ΞΟ;ΕΝΟ; /% WAIT LOOP */ 


; STATEMENT # 207 


DX, OFFF2H 
DX 

AL , 2H 
3142 


CALL SIOSCHECKSCONTROLSCHAR; 


IF CHAR - 11H THEN GOTO LOOP; 


; STATEMENT # 209 
SIOCHECKCONTROLCHAR 


> STATEMENT # 210 
CHAR, 11H 
LOOP 


; STATEMENT # 212 


AL, CHAR 
BP 


; STATEMENT # 213 
ENDP 


; STATEMENT # 214 


/* GET ANOTHER IF CTL-Q */ 


/* THIS ROUTINE READS A BYTE FROM THE PAPER TAPE READER. */ 


PROC NEAR 
BP 
BP, SP 


T = LOW(SIOSHEX(SIOSREADSCHAR)); 


; STATEMENT # 216 
SIOREADCHAR 
AX е 1 
SIOHEX 
T,AL 


T = SHL(T,4) + LOM(SIOSHEX(SIOSREADSCHAR)); 


9141: 
BAF2FF MOV 
B025 MOV 
EE OUT 
9142: 
BAF2FF MOV 
EC IN 
A802 TEST 
74F8 JZ 
E8F2FB CALL 
803E660011 CMP 
T4BD JZ 
RETURN CHAR; 
A06600 MOV 
5D POP 
C3 RET 
END; 
SIOREADCHAR 
SIOSREADSBYTE: 
SIOREADBYTE 
55 PUSH 
8BEC MOV 
PROCEDURE BYTE; 
DECLARE T BYTE; 
E8AFFF CALL 
50 PUSH 
E83FFD CALL 
A26D00 MOV 
A06D00 MOV 
B104 MOV 
D2EO SHL 
50 PUSH 
E89DFF CALL 
50 PUSH 
E82DFD CALL 
59 POP 
02C1 ADD 
A26D00 MOV 


; STATEMENT # 217 
AL,T 
CL,4H 
AL,CL 
AX 4 1 
SIOREADCHAR 
AX 2/22 
SIOHEX 
CX а 
AL,CL 
T,AL 


CHECK$SUM = CHECKSSUM + T; 
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; STATEMENT # 218 


O6EF А06000 MOV AL,T 
06Е2 00066700 ADD CHECKSUM, AL 
219 2 RETURN T; 
; STATEMENT # 219 
06Ғ6 50 РОР ВР 
O6F7 C3 RET 
220 2 END; 
; STATEMENT # 220 
SIOREADBYTE ENDP 
221 1 SIOSREADSWORD : 


; STATEMENT # 221 
/* THIS ROUTINE READS A WORD FROM THE PAPER TAPE READER AND RETURNS IT 
AS THE VALUE OF THE PROCEDURE. */ 


SIOREADWORD PROC NEAR 
06Ғ8 55 PUSH BP 
O6F9 8ВЕС MOV BP,SP 
PROCEDURE WORD; 
222 2 DECLARE T BYTE; 
223 2 T = SIOSREADSBYTE; 
; STATEMENT # 223 
O6FB EBCFFF CALL — SIOREADBYTE 
O6FE А26Е00 MOV T,AL 
224 2 RETURN SHL(DOUBLE(T),8) + DOUBLE(SIOSREADSBYTE); 
; STATEMENT # 224 
0701 А06Е00 MOV AL,T 
0704 B400 MOV AH, OH 
0706 В108 MOV CL, 8H 
0708 D3E0 SHL AX, CL 
070A 50 PUSH AX ; 1 
0708 EBBFFF CALL 5ΙΟΒΕΑΌΒΥΤΕ 
070E B400 MOV AH, OH 
0710 59 POP CX T 
0711 03С1 ADD AX,CX 
0713 5D POP BP 
0714 C3 RET 
225 2 END; 
; STATEMENT # 225 
S IOREADWORD ENDP 


уы іы 
* INTERRUPT AND RESTORE/EXECUTE SECTION * 


Y k k sk k sk k Ae He sk sk k k k k Sk e k koko kok kok kok kok k ΑΛΑ ΧΑΑ He Fe He Fe He He f 


226 1 SAVE$REGISTERS: 
; STATEMENT # 226 
/* THIS ROUTINE IS USED TO SAVE THE STACKED USER'S REGISTERS IN THE 
MONITOR'S SAVE AREA. */ 


SAVEREGISTERS PROC NEAR 
0715 55 PUSH BP 
0716 8BEC MOV BP,SP 
PROCEDURE ; 
227 2 BP = MEMORYSUSERSTACK; 


; STATEMENT # 227 
0718 C41E2A00 LES ВХ, MEMORYUSERSTACKPTR 
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071C 268807 MOV AX, ES: MEMORYUSERSTACK [BX] 
071Ғ A33A00 MOV REGSAV+0AH , ΑΧ 
228 2 USERSTACK.OFF = USERSTACK.OFF + 4; 
; STATEMENT # 228 
0722 83062A0004 ADD USERSTACK,4H 
229 2 DO 1=0 TO 10; /* POP REGISTERS OFF OF STACK */ 
; STATEMENT # 229 
0727  C606680000 MOV 1,0Н 
9144: 
072С 805Е68000ҮА СМР I, ОАН 
0731 7725 JA 8145 
230 5 КЕС%5АУ(КЕСФОКО(1)) = MEMORYSUSERSTACK; 
- STATEMENT # 230 
0733 8A1E6800 MOV BL, 1 
0737 B700 MOV BH, OH 
0739  2E8A9F7400 MOV BL , CS: REGORD [BX] 
073Е В700 MOV ΒΗ, OH 
0740 D1E3 SHL BX, 1 
0742 C4362A00 LES SI ,MEMORYUSERSTACKPTR 
0746 268804 MOV AX, ES: MEMORYUSERSTACK [SI] 
0749 894730 MOV REGSAV [BX] , AX 
231 3 USERSTACK.OFF - USERSTACK.OFF * 2; 
; STATEMENT # 231 
074C 83062A0002 ADD USERSTACK, 2H 
232 3 END; 
; STATEMENT # 232 
0751 8006680001 ADD I,1H 
0756 75D4 JNZ 9144 
9145: 
233 ο SS = USERSTACK.SEG; 
; STATEMENT # 233 
0758 А12С00 MOV AX ,USERSTACK-* 2H 
075B A34400 MOV REGSAV+14H, AX 
254 2 SP = USERSTACK.OFF; 
> STATEMENT # 234 
075Е A12A00 MOV AX ,USERSTACK 
0761 A33800 MOV REGSAV+8H , AX 
235 2 END; 
; STATEMENT # 235 
0764 5D POP BP 
0765 C3 RET 
SAVEREGISTERS ENDP 
236 1 RESTORESEXECUTE : 


; STATEMENT # 236 
/* THIS PROCEDURE RESTORES THE STATE OF THE USER MACHINE AND 
PASSES CONTROL BACK TO THE USER PROGRAM. IT CONTAINS A 
MACHINE LANGUAGE SUBROUTINE TO PERFORM THE POPPING OF THE 
USER REGISTERS AND TO EXECUTE AN 'IRET' TO TRANSFER CONTROL 
TO THE USER'S PROGRAM. */ 
RESTOREEXECUTE PROC NEAR 
0766 55 PUSH ВР 
0767 8ВЕС MOV BP,SP 
PROCEDURE; 
237 2 DECLARE RESTORESEXECUTESCODE(*) BYTE DATA 
(O8BH, OECH, /* MOV BP,SP */ 
08BH,046H,002H, /* MOV AX,/BP/.PARM2  */ 
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238 


239 


240 


241 


242 


243 


244 


245 


246 


0769 
076C 


076F 
0772 


0775 


077A 
077F 


0781 


0786 
0788 
078C 
078E 
0793 
0795 
0797 
079A 
079E 


07A1 
07A6 


07A8 


07А0 
0780 
07B4 
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O8BH, OSEH, 004H, 
ОВЕН, ODOH, 
O8BH, 0E3H, 
05DH, 
O5FH, 
O5EH, 
05BH, 
ОЅАН, 
059H, 
058H, 
O1FH, 
007H, 
OCFH), 
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/* MOV BX,/BP/.PARM1 */ 


/* MOV SS,AX */ 
/* MOV SP,BX */ 
/* POP BP */ 
/* POP DI "f 
/* POP SI *7 
/* POP BX ο 
/* POP DX ” 
/% РОР СХ "7 
/* POP AX ny 
/* POP DS е/ 
/* POP ES у 
7% IRET еу 


RESTORESEXECUTESCODESPTR WORD DATA (.RESTORESEXECUTES$CODE ) ; 


USERSTACK.SEG = SS; 


; STATEMENT # 238 
ΑΧ, REGSAV+14H 
USERSTACK+2H , AX 


; STATEMENT # 239 
AX , REGSAV+8H 
USERSTACK , AX 
/* PUSH USER'S REGISTERS ONTO HIS STACK */ 
; STATEMENT # 240 
1,0H 


1, OAH 
9147 


USERSTACK.OFF = USERSTACK.OFF - 2; 


; STATEMENT # 241 
USERSTACK , 2H 


= REGSSAV(REGSORD(10-1)); 
; STATEMENT # 242 

BL,OAH 

BL,I 

BH, OH 

BL, CS: REGORD [BX] 

BH, OH 

BX, 1 

AX, REGSAV [BX] 


BX ,MEMORYUSERSTACKPTR 
ES :MEMORYUSERSTACK [BX] , AX 


- STATEMENT # 243 
1, 1H 
3146 


USERSTACK.OFF = USERSTACK.OFF - 2; 


; STATEMENT # 244 
USERSTACK , 2H 


; STATEMENT # 245 
ΑΧ, REGSAV*OAH 
BX , MEMORYUSERSTACKPTR 


A14400 MOV 
A32C00 MOV 
USERSTACK.OFF = SP; 
A13800 MOV 
A32A00 MOV 
DO 150 TO 10; 
C606680000 MOV 
9146: 
803E68000A CMP 
7727 JA 
832E2A0002 SUB 
MEMORY$USERSTACK 
B30A MOV 
2A1E6800 SUB 
B700 MOV 
2EBA9F7400 MOV 
B700 MOV 
D1E3 SHL 
8B4730 MOV 
C41E2A00 LES 
268907 MOV 
END; 
8006680001 ADD 
75D2 JNZ 
9147: 
832E2A0002 SUB 
MEMORYSUSERSTACK = BP; 
A13A00 MOV 
C41E2A00 LES 
268907 MOV 


ES :MEMORYUSERSTACK [BX] , AX 


CALL RESTORESEXECUTESCODESPTR(USERSTACK . OFF ,USERSTACK.SEG); 
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247 


248 


249 


250 


251 


252 


253 
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0787 FF362A00 PUSH 
07BB FF362C00 PUSH 
07BF 2EFF160400 CALL 
END; 
07C4 5D POP 
07С5 СЗ RET 
RESTOREEXECUTE 
INTERRUPT 1$ENTRY: 


/* THIS PROCEDURE IS CALLED WHEN THE CPU IS INTERRUPTED BY EXECUTING 


; STATEMENT # 246 
USERSTACK; 1 
USERSTACK*2H; 2 
CS:RESTOREEXECUTECODEPTR 


; STATEMENT # 247 
BP 


ENDP 


; STATEMENT # 248 


PAGE 


AN INSTRUCTION WITH THE TRAP BIT SET (SINGLE STEP). */ 


07C6 06 PUSH 
07C7 ЛЕ PUSH 
07C8 2E8E1EA600 MOV 
O7CD 50 PUSH 
O7CE 51 PUSH 
O7CF 52 PUSH 
0700 53 PUSH 
07D1 56 PUSH 
0702 57 PUSH 
0703 £80900 CALL 
0706 5F POP 
0707 5E POP 
0708 5B POP 
0709 5A POP 
O7DA 59 POP 
070В 58 POP 
0706 TF POP 
0700 07 РОР 
O7DE CF IRET 
INTERRUPT 1ENTRY 
O7DF 55 PUSH 
07Е0 8ВЕС МОУ 


PROCEDURE INTERRUPT 1; 


USERSTACK.OFF = STACKPTR; 


ES 
DS 
DS ,CS:daDATASFRAME 


PROC NEAR 
BP 
BP, SP 


; STATEMENT # 249 


07E2 89E0 MOV AX, SP 
07E4 АЗ2А00 MOV USERSTACK, AX 
USERSTACK.SEG = STACKBASE; 
; STATEMENT # 250 
07E7 8С00 MOV AX,SS 
07E9 A32C00 MOV USERSTACK*2H, AX 
STACKPTR = MONITORSSTACKPTR; 
- STATEMENT # 251 
O7EC А11400 MOV ΑΧ, MONITORSTACKPTR 
O7EF 89C4 MOV SP, AX 
STACKBASE = MONITORSSTACKBASE; 
; STATEMENT # 252 
07F1 А11600 MOV ΑΧ, MONI TORSTACKBASE 
07F4 ВЕРО MOV SS, AX 


CALL SAVESREGISTERS; 


O7F6 ΕΔΒΊΟΕΕ CALL 


; STATEMENT # 253 
SAVEREGISTERS 


27 


/* CHANGE TO MONITOR'S STACK */ 
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254 2 FL = FL AND (NOT STEPSTRAP); /* CLEAR STEP FLAG */ 
; STATEMENT # 254 
O7F9 81264A00F FFE AND REGSAV+1AH, OFEFFH 


255 2 IF LAST$COMMAND«»SS$COMMAND THEN /% CONTINUE IF NOT SS */ 
; STATEMENT # 255 
O7FF 803Е6А0003 CMP LASTCOMMAND , 3H 
0804 7403 JZ 931 
256 2 CALL RESTORESEXECUTE; 
; STATEMENT # 256 
0806 E85DFF CALL RESTOREEXECUTE 
931: 
257 2 CALL SIOSCRLF; 
; STATEMENT # 257 
0809 E89BFC CALL SIOCRLF 
258 2 CALL SIOSUPDATESIP; 
; STATEMENT # 258 
080C E816FE CALL SIOUPDATEIP 
259 2 IF CHAR=',' THEN 
: STATEMENT # 259 
080F 803E66002C CMP CHAR , 2CH 
0814 7515 JNZ 932 
260 2 DO; 
261 3 IP = CSIP.OFF; 
; STATEMENT # 261 
0816 А12600 MOV AX,CSIP 
0819 A34800 MOV REGSAV+18H, AX 
262 3 CS = CSIP.SEG; 
; STATEMENT # 262 
081C A12800 MOV AX, CSIP+2H 
081F A34000 MOV REGSAV^ 10H, AX 
263 3 FL = FL OR STEPSTRAP; /* SET STEP FLAG */ 
; STATEMENT # 263 
0822 810E4A000001 OR REGSAV+1AH, 100H 
264 3 CALL RESTORESEXECUTE; 
; STATEMENT # 264 
0828 Ε82ΒΕΕ CALL RESTOREEXECUTE 
265 3 END; 
932: 
266 2 IF CHAR<>ASCR THEN GOTO ERROR; 
: STATEMENT # 266 
0828 803Е660000 CMP CHAR, ООН 
0830 7403 JZ $+5H 
0832 Е901Ғ9 JMP ERROR 
268 2 GOTO NEXTSCOMMAND ; 
; STATEMENT # 268 
0835 E937F9 JMP NEXTCOMMAND 
269 2 END; 
INTERRUPT TENTRY ENDP 
270 1 INTERRUPT3SENTRY: 


; STATEMENT # 270 
/* THIS PROCEDURE IS CALLED WHEN THE CPU EXECUTES A ‘INT 3! INSTRUCTION. 
THE MONITOR INSERTS THIS (OCCH) FOR A BREAKPOINT. ALSO AN EXTERNAL 
INTERRUPT OR A USER SOFTWARE INTERRUPT MAY CAUSE THIS PROCEDURE TO ВЕ ` 
CALLED. */ 
0838 06 PUSH ES 
0839 1E PUSH DS 
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271 


272 


273 


274 


275 


276 


277 


278 


279 


083A 
083F 
0840 
0841 
0842 
0843 
0844 
0845 
0848 
0849 
084A 
084B 
084C 
084D 
084E 
084F 
0850 


0851 
0852 


0854 
0856 


0859 
085B 


085E 
0861 


0863 
0866 


0868 


0868 


086Е 
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2E8E1EA600 MOV DS, CS:@aDATASFRAME 
50 PUSH АХ 
51 PUSH CX 
52 PUSH DX 
53 PUSH ВХ 
56 PUSH SI 
57 PUSH DI 
E80900 CALL —— INTERRUPTSENTRY 
5F POP DI 
5E POP SI 
5B POP BX 
5A POP DX 
59 POP CX 
58 POP AX 
1F POP DS 
07 POP ES 
CF IRET 
INTERRUPT3ENTRY PROC NEAR 
55 PUSH BP 
8BEC MOV BP,SP 
PROCEDURE INTERRUPT 3; 
USERSTACK.OFF = STACKPTR; 
; STATEMENT # 271 
89Е0 MOV AX,SP 
A32A00 MOV USERSTACK , AX 
USERSTACK.SEG = STACKBASE; 
; STATEMENT # 272 
8CDO MOV AX,SS 
A32C00 MOV USERSTACK+2H , AX 
STACKPTR = MONITORSSTACKPTR; 
; STATEMENT # 273 
A11400 MOV AX , MONI TORSTACKPTR 
89C4 MOV SP, AX 
STACKBASE = MONITORSSTACKBASE; 
- STATEMENT # 274 
A11600 MOV AX , MONI TORSTACKBASE 
8EDO MOV SS, AX 
CALL SAVESREGISTERS; 
; STATEMENT # 275 
EBAAFE CALL ^ SAVEREGISTERS 
CALL SIOSCRLF; 
- STATEMENT # 276 
E839FC CALL — SIOCRLF 
GOTO AFTERSINTERRUPT; 
; STATEMENT # 277 
ΕΦΑ7ΕΟ JMP AFTERINTERRUPT 
END; 
INTERRUPT3ENTRY ENDP 
INITSINTS$VECTOR: 


; STATEMENT # 279 


/* THIS ROUTINE INITIALIZES AN INTERRRUPT VECTOR AS FOLLOWS: THE OFFSET 


FROM THE ADDRESS OF 
NUMBER OF BYTES FOR 
CURRENT CS REGISTER 
SUBROUTINE. */ 
INITINTVECTOR 


' INT$ROUTINE' CORRECTED BY THE APPROPRIATE 
THE INTERRUPT PLM PROLOGUE. THE SEGMENT FROM THE 
IS DETERMINED BY A MACHINE LANGUAGE CODED 


PROC NEAR 
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0871 55 PUSH ВР 
0872 8ВЕС MOV BP, SP 
PROCEDURE ( INT$VECTORSPTR, INTSROUT INESOFFSET); 
280 2 DECLARE INT$VECTORSPTR POINTER, INTSROUTINESOFFSET WORD, 
VECTOR BASED ІМТФУЕСТОВФРТВ STRUCTURE (OFF WORD, SEG WORD), 
CORRECTION LITERALLY '19H', /* OFFSET FOR PROLOGUE */ 
INITS$INTSVECTORSCODE(*) BYTE DATA 


(055H, /* PUSH BP "f 
O8BH, OECH, /* MOV BP,SP */ 
O8CH, OC8H, /* MOV AX,CS "i i 
0С4Н,05ЕН,004Н, /* LES BX,/BP/.PARM1 %/ 
026H ,089H ,007H, /* MOV ES:W/BX/,AX Я 
05DH, /* POP BP ж/ 
OC2H,004H,000H), /* RET 4 */ 
INITSINTSVECTORSCODESPTR WORD DATA (.INITSINTSVECTORSCODE ); 
281 2 CALL INITS$INT$VECTORSCODESPTR(GVECTOR . SEG) ; /* SEGMENT PORTION */ 
; STATEMENT # 281 
0874 C45E06 LES BX, [BP] . INTVECTORPTR 
0877 26804702 LEA AX,ES: VECTOR [BX*2H] 
087B 06 PUSH ES : 1 
087C 50 PUSH АХ ; 2 
087D 2EFF160600 CALL CS: INITINTVECTORCODEPTR 
282 2 VECTOR.OFF = INTSROUTINESOFFSET - CORRECTION; /% OFFSET PORTION */ 
; STATEMENT # 282 
0882 8B4604 MOV AX, [BP] . INTROUTINEOFFSET 
0885 835819 SUB AX, 19H 
0888 С45Е06 LES BX, [BP] . INTVECTORPTR 
088B 268907 MOV ES: VECTOR [BX] , AX 
283 2 END; 
; STATEMENT # 283 
088E 5D POP BP 
088F C20600 RET 6H 
INITINTVECTOR ENDP 


/* e e de e e e e e e ee dee e de e e dee de k k de e e k k dee de de e de de e de ee de dee dee de ee de e e de e de de de de e de de dede jede de dee 
Ae ἐς e e e e de e de de e * * e de e e e e e de e dee de dee ee de dee e dee de de de dede e de de e dee de ee dee de dee de de dee e de dee e Жс Ус 


COMMAND MODULE 


ABSTRACT 


THIS MODULE CONTAINS ALL THE COMMANDS IMPLEMENTED AS INDIVIDUAL PROCEDURES 
AND CALLED FROM THE OUTER BLOCK OF THE COMMAND DISPATCH LOOP. 


MODULE ORGANIZATION 


THIS MODULE CONTAINS THE FOLLOWING SECTIONS: 


1. COMMANDS SECTION 


SIO$GO GO 
SIOSSINGLESSTEP SINGLE STEP 
510ФЕХАМФМЕМ SUBSTITUTE MEMORY 
SIOSEXAMSREG EXAMINE REGISTER 
510%МОУЕ МОУЕ 


SIOSDISPLAY DISPLAY BYTES 
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284 


285 


286 


290 


292 


295 


294 


ad ὦ 


0892 
0893 


0895 


0898 
0890 


UN г 


089F 


08A2 
08A6 
08A7 
08A8 
08AC 


O8AF 
08B4 
08B6 


08B9 
08BD 
0860 


0863 


08C7 
0808 


SDK86 SERIAL MONITOR PAGE 
SIOSINPUT INPUT PORT 
SIOSOUTPUT OUTPUT PORT 
SIOSWRITE WRITE DATA RECORDS 
510%КЕАО READ DATA RECORDS 

2. COMMAND DISPATCH (OUTER BLOCK, MAIN PROGRAM LOOP) 
NEXT$COMMAND DISPATCH 
ERROR ERROR ROUTINE 


/ κκ κ κα κα kekok k kok koko e k k ko ko k k 


* COMMAND SECTION * 


* ke ek ыы e He He He He Fe e e e He y 


SIO$GO: 


; STATEMENT # 284 
/* IMPLEMENTS THE 'GO' COMMAND. THE USER MAY SPECIFY A NEW 
IP:PC AND AN OPTIONAL BREAKPOINT. */ 


SIOGO PROC NEAR 
55 PUSH BP 
8BEC MOV BP,SP 
PROCEDURE ; 
CALL SIOSUPDATESIP; 
; STATEMENT # 285 
E88DFD CALL SIOUPDATEIP 
IF CHAR=',' THEN /* BREAKPOINT */ 
; STATEMENT # 286 
803E66002C CMP CHAR, 2CH 
753C JNZ 934 
ро; 
CALL SIOSGETSCHAR; 
; STATEMENT # 288 
E86DFA CALL SIOGETCHAR 


CALL SIOSGETSADDR(@BRK1,CSIP.SEG); 
; STATEMENT # 289 


80062200 LEA AX, BRK1 
1E PUSH DS ; 1 
50 PUSH AX ; 2 
FF362800 PUSH CSIP+2H ; 3 
E835FD CALL  SIOGETADDR 
IF CHAR<>ASCR THEN GOTO ERROR; 
; STATEMENT # 290 
803E66000D CMP CHAR, ODH 
7403 JZ $+5H 
Е940Ғ9 JMP ERROR 
BRK1$SAVE = MEMORYSBRK1; 
; STATEMENT # 292 
C41E2200 LES BX, MEMORYBRK1PTR 
268A07 MOV AL , ES: MEMORYBRK1 [BX] 
A26500 MOV BRK1SAVE, AL 
ΜΕΜΟΒΥΦΒΗΚΊ = BREAKSINST; 
; STATEMENT # 293 
26C607CC MOV ES : MEMORYBRK 1 [BX] , OCCH 


IF MEMORYSBRK1«»BREAKSINST THEN GOTO ERROR; 
; STATEMENT # 294 
C41E2200 LES BX ,MEMORYBRK1PTR 
26803FCC CMP ES:MEMORYBRK1 [BX] , OCCH 


31 
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296 


297 


298 


301 


302 


303 


304 


305 


306 


307 


308 


08СҒ 7403 JZ $+5H 
0801 E932F9 JMP ERROR 
BRK1$FLAG = TRUE; 
; STATEMENT # 296 


0804  C6066400FF MOV BRK1FLAG, OF FH 
END; 
; STATEMENT # 297 
0809 EBOA JMP 937 
934: 
ELSE /* NO BREAKPOINT */ 


IF CHAR<>ASCR THEN GOTO ERROR; 
; STATEMENT # 298 


0808 803Е660000 СМР CHAR , ООН 
08Е0 7403 JZ $+5H 
08Е2 Е921Ғ9 JMP ERROR 


; STATEMENT # 299 
937: 
CALL SIOSCRLF; 
; STATEMENT # 300 


08Е5 Е8ВҒҒВ CALL  SIOCRLF 
IP = CSIP.OFF; 
; STATEMENT # 301 
08Е8 A12600 MOV ΑΧ, CSIP 
08ЕВ A34800 MOV REGSAV+18H, AX 
CS = CSIP.SEG; 
; STATEMENT # 302 
OBEE A12800 MOV ΑΧ, CSIP+2H 
08Ғ1 34000 MOV REGSAV+10H, AX 
FL = FL AND (NOT STEPSTRAP); /* CLEAR IF SET */ 


; STATEMENT # 303 
O8F4 81264A00FFFE AND REGSAV+1AH, OFEFFH 
CALL RESTORESEXECUTE; 
; STATEMENT # 304 


O8FA Е869ҒЕ CALL RESTOREEXECUTE 
END; 
; STATEMENT # 305 
O8FD 5D POP BP 
O8FE C3 RET 
51060 ЕМ0Р 
SIOSSINGLESSTEP: 


; STATEMENT # 306 
/* IMPLEMENTS THE SINGLE STEP COMMAND. DISPLAYS IP AND THE 
CURRENT INSTRUCTION BTYE. OPENS CS:IP FOR INPUT. DEPRESSING 
COMMA CAUSES THE MONITOR TO SINGLE STEP THE INSTRUCTION, AND 
PERIOD TERMINATES THE COMMAND. */ 


SIOSINGLESTEP PROC NEAR 
O8FF 55 PUSH BP 
0900 8ВЕС MOV BP,SP 
PROCEDURE; 


CALL SIOSUPDATESIP; 
; STATEMENT # 307 
0902 E820FD CALL SIOUPDATEIP 
IF CHAR<>',' THEN GOTO ERROR; 
; STATEMENT # 308 
0905 803E66002C CMP CHAR, 2CH 
090A 7403 JZ $+5H 
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090C ΕΦΕΖΕ8 JMP ERROR 
IP = CSIP.OFF; 
; STATEMENT # 310 
090F 12600 MOV AX,CSIP 
0912 A34800 MOV REGSAV+18H, AX 
311 2 CS = CSIP.SEG; 
; STATEMENT # 311 
0915 12800 MOV AX, CSIP+2H 
0918 A34000 MOV REGSAV+10H, AX 
312 2 FL = FL OR STEPSTRAP; 
; STATEMENT # 312 
091B 810E4A000001 OR REGSAV+1AH, 100H 
313 2 CALL RESTORESEXECUTE; 
; STATEMENT # 313 
0921 Е842ҒЕ CALL RESTOREEXECUTE 
314 2 END; 
; STATEMENT # 314 
0924 5D POP BP 
0925 C3 RET 
SIOSINGLESTEP ENDP 
3515 1 510ФЕХАМФМЕМ: 
; STATEMENT # 315 
/* IMPLEMENTS THE EXAMINE MEMORY COMMAND. */ 
SIOEXAMMEM PROC NEAR 
0926 55 PUSH BP 
0927 8BEC MOV BP,SP 
PROCEDURE ; 
316 2 DECLARE W WORD; 
317 2 CALL SIO$TEST$WORD$MODE; 
; STATEMENT # 317 
0929 E88CFB CALL SIOTESTWORDMODE 
318 2 CALL SIOSGETSADDR(@ARG1,CS); 
; STATEMENT # 318 
092C 80061А00 LEA AX, ARG1 
0930 ЛЕ PUSH DS A 
0931 50 PUSH AX а: С 
0932 FF364000 PUSH REGSAV+10H; 3 
0936 E8ABFC CALL SIOGETADDR 
319 2 IF CHAR<>',' THEN GOTO ERROR; 
; STATEMENT # 319 
0939 805Е66002С CMP CHAR, 2CH 
093Е 7403 JZ $+5H 
0940 E9C3F8 JMP ERROR 
321 2 DO WHILE TRUE; 
; STATEMENT # 321 
9148: 
322 3 CALL SIOSOUTSBLANK; 
; STATEMENT # 322 
0943 E831FA CALL SIOOUTBLANK 
323 3 IF WORDSMODE THEN 
; STATEMENT # 323 
0946 А06900 MOV AL , WORDMODE 
0949 0008 ЕСЕ AL,1 
094B 730C JNB 941 
324 3 CALL SIOSOUTSWORD (MEMORYSWORDSARG1); 


; STATEMENT # 324 


33 
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325 


326 


327 


328 


2 329 


331 


332 
333 


334 


336 


094D 
0951 
0954 
0957 


0959 
095D 
0960 


0963 
0965 
0966 


0969 


096C 


096F 
0974 


0976 
0977 


0978 
09 7D 


097F 
0982 


0985 
098A 
098C 
098E 
098F 
0990 
0995 
0997 
0999 
099A 
0998 
0990 
099F 
09A1 
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C41E1A00 LES BX ,MEMORYARGIPTR 
26FF37 PUSH ES : MEMORYWORDARG1 [BX] 
E809FA CALL SIOOUTWORD 
EBOA JMP 942 
941: 
ELSE 
CALL SIOS$OUTS$BYTE(MEMORYS$ARG1); 
; STATEMENT # 325 
C41E1A00 LES BX ,MEMORYARGIPTR 
26FF37 PUSH ES:MEMORYARG1 [BX] 
E8CDF9 CALL SIOOUTBYTE 
942: 
CALL SIOSOUTSCHAR('-'); 
; STATEMENT # 326 
В020 MOV AL , 2DH 
50 PUSH AX = 4 
E886F9 CALL SIOOUTCHAR 
CALL SIOSOUTSBLANK; 
; STATEMENT # 327 
E80BFA CALL SIOOUTBLANK 
CALL SIOSGETSCHAR; 
; STATEMENT # 328 
E8A0F9 CALL SIOGETCHAR 
IF CHAR=ASCR THEN RETURN; 
; STATEMENT # 329 
803E66000D CMP CHAR , ODH 
7502 JNZ 943 
; STATEMENT # 330 
5D POP BP 
C3 RET 
943: 
IF СНАК<>!,! THEN 
; STATEMENT # 331 
803E66002C CMP CHAR , 2CH 
745C JZ 944 
00; 
М = SIOSGETSWORD; 
; STATEMENT # 333 
E86EFB CALL SIOGETWORD 
A35200 MOV W, ΑΧ 
IF (CHAR <> !,!) AND (CHAR <> ASCR) THEN GOTO ERROR; 
; STATEMENT # 334 
803E66002C CMP CHAR, 2CH 
BOFF MOV AL, ОРЕН 
7501 JNZ $+3H 
40 INC AX 
50 PUSH AX * 3 
803E66000D CMP CHAR , ODH 
BOFF MOV AL,OFFH 
7501 JNZ $+3H 
40 INC AX 
59 POP CX “7 
22C1 AND AL,CL 
D0D8 RCR AL,1 
7303 JNB $+5H 
E962F8 JMP ERROR 


IF WORD$MODE THEN 
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337 
338 


339 


341 


342 


343 


344 


346 
347 


348 


350 


09A4 
09A7 
09A9 


O9AB 
O9AE 
0982 


0985 
0989 
O9BC 
09CO 


09C2 
09C5 
09C9 


09СС 
09СҒ 
0903 


0906 
0908 


0908 
09E0 


09E2 
09E3 
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; STATEMENT # 336 


09Е4 

09Е7 

09Е9 
351 .Ὦ 


09ЕВ 
09Ғ0 


А06900 MOV AL , WORDMODE 
DOD8 RCR AL, 1 
7317 JNB 946 
00; 
MEMORYSWORDSARG1 = W; 
; STATEMENT # 338 
A15200 MOV AX,W 
C41E1A00 LES BX ,MEMORYARGIPTR 
268907 MOV ES :MEMORYWORDARG1 [BX] , AX 
IF MEMORYSWORDSARG1<>W THEN GOTO ERROR; 
; STATEMENT # 339 
C41E1A00 LES BX,MEMORYARGTPTR 
268B07 MOV AX , ES: MEMORYWORDARG!1 [BX] 
3B065200 CMP АХ,М 
ЕВ14 JMP 911 
END; 
; STATEMENT # 341 
946: 
ELSE 
DO; 
МЕМОКҮФАКС1 = LOW(W); 
; STATEMENT # 343 
A15200 MOV AX, W 
C41E1A00 LES BX ,MEMORYARGIPTR 
268807 MOV ES:MEMORYARG1 [BX] , AL 
IF MEMORYSARG1<>LOW(W) THEN GOTO ERROR; 
; STATEMENT # 344 
A15200 MOV AX,W 
C41E1A00 LES BX,MEMORYARGTPTR 
265807 CMP ES:MEMORYARG1 [BX] , AL 
911: 
7403 JZ $45H 
E92BF8 JMP ERROR 
; STATEMENT # 345 
END; 
END; 
944: 
IF CHAR=ASCR THEN RETURN; 
; STATEMENT # 348 
803E66000D CMP CHAR , ODH 
7502 JNZ 950 
; STATEMENT # 349 
5D POP BP 
C3 RET 
950: 
IF WORDSMODE THEN 
; STATEMENT # 350 
A06900 MOV AL , WORDMODE 
0008 RCR AL,1 
7307 JNB 951 
ARG1.OFF = ARG1.OFF + 2; 
; STATEMENT # 351 
83061A0002 ADD ARG1 , 2H 
ЕВ05 JMP 952 


951: 
ELSE 


35 
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353 


354 


555 


356 


357 


358 
359 


560 


361 
362 


363 


364 


365 


09Ε2 


09F7 


09ҒА 
09ҒЕ 


0А01 


0А04 
0А05 


0А06 
0А07 


0А09 


OAOC 
0A11 


0A13 


0A16 
ОА1В 
0A20 
0A22 


0A25 
0A28 
ОА2А 
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ARG1.OFF = ARG1.OFF + 1; 
; STATEMENT # 352 


83061A0001 ADD ARG1 , 1H 
952: 
CALL SIOSCRLF; 
; STATEMENT # 353 
E8ADFA CALL SIOCRLF 
CALL SIOSOUTSWORD (ARG1 .OFF); 
; STATEMENT # 354 
FF361A00 PUSH ARG1 A 
E85FF9 CALL SIOOUTWORD 
END; 
; STATEMENT # 355 
E93FFF JMP 9148 
9149: 
END; 
; STATEMENT # 356 
5D POP BP 
C3 RET 
SIOEXAMMEM ENDP 
SIOSEXAMSREG: 
; STATEMENT # 357 
/* IMPLEMENTS THE EXAMINE REGISTER COMMAND. SCANS FOR A VALID 
REGISTER NAME AND DISPLAYS THE VALUE OF THAT REGISTER WHICH IS 
OPTIONALLY OPENED FOR INPUT. COMMA INCREMENTS TO NEXT REGISTER 
UNLESS IT IS 'FL' WHICH TERMINATES AS DOES CR. */ 
SIOEXAMREG PROC NEAR 
55 PUSH BP 
8BEC MOV BP,SP 
PROCEDURE ; 
DECLARE (T,I) BYTE, SAVE WORD; 
CALL SIOSSCANSBLANK ; 
; STATEMENT # 359 
E8D2FA CALL SIOSCANBLANK 


IF CHAR=ASCR THEN 
; STATEMENT # 360 


803E66000D CMP CHAR, ООН 
7559 JNZ 953 
DO; 
CALL SIO$CRLF; 
; STATEMENT # 362 
E891FA CALL SIOCRLF 
DO I=0 TO 13; 
; STATEMENT # 363 
C606700000 MOV I ,0H 
9150: 
803Е 700000 СМР I, ODH 
7748 JA 9151 
CALL SIOSOUTSBLANK; 
; STATEMENT # 364 
E852F9 CALL SIOOUTBLANK 


CALL SIOSOUTSCHAR(REG(I*2)); 
; STATEMENT # 365 
A07000 MOV AL, I 
B102 MOV CL, 2H 
F6E1 MUL CL 
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566 


367 


368 


369 


371 


372 


373 
374 


376 


277 


578 


OA2C 
OA2E 
0A32 


0A35 
0A38 
ОАЗА 
OA3C 
OASE 
0A42 


0A45 
0A47 
0A48 


0А4В 
OA4F 
0A51 
0А53 
0A56 


0A59 
ОАЅЕ 


0А60 


0А63 
0А68 


OA6A 
OA6B 


OA6C 
0ΑόΕ 
0А71 
0А73 
0A75 


0A78 
0A7B 


ОА?Е 
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89C3 MOV BX , AX 
2EFF7758 PUSH CS:REGI[BX] 
ΕδΒΑΕδ CALL SIOOUTCHAR 


CALL SIOSOUTSCHAR(REG(I*241)); 
; STATEMENT # 366 


A07000 MOV AL,I 

B102 MOV CL,2H 

F6E1 MUL CL 

89C3 MOV BX , AX 
2EFF7759 PUSH CS:REG[BX* 1H] 
E8AAF8 CALL SIOOUTCHAR 


CALL SIOSOUTSCHAR('='); 
; STATEMENT # 367 


возо МОУ AL, 3DH 
50 PUSH АХ ; 1 
E8A4F8 CALL — SIOOUTCHAR 


CALL SIOSOUTSWORD(REG$SAV(I)); 
; STATEMENT # 368 


8A1E7000 MOV BL,I 

B700 MOV BH, OH 

D1E3 SHL BX, 1 

FF7730 PUSH БЕС5АУІВХІ; 1 
E807F9 CALL  SIOOUTWORD 


IF 156 THEN CALL SIOSCRLF; 
; STATEMENT # 369 


803E700006 CMP I,6H 
7503 JNZ 954 
; STATEMENT # 370 
E844FA CALL SIOCRLF 
954: 
END; 
; STATEMENT # 371 
8006700001 ADD І,ІН 
75В1 JNZ 9150 
9151: 
RETURN; 
; STATEMENT # 372 
5D POP BP 
C3 RET 
END; 
89535: 


IF NOT(SIOSVALIDSREGSFIRST) THEN GOTO ERROR; 
; STATEMENT # 374 


E8C2F9 CALL —— SIOVALIDREGFIRST 
F6D0 NOT AL 
0008 RCR AL, 1 
7303 JNB $+5H 
E98EF7 JMP ERROR 
T = CHAR; 
> STATEMENT # 376 
A06600 MOV AL, CHAR 
A26F00 MOV T,AL 


CALL SIOSGETSCHAR; 
; STATEMENT # 377 
E88EF8 CALL SIOGETCHAR 
IF NOT(SIOSVALIDS$REG(T,CHAR)) THEN GOTO ERROR; 
; STATEMENT # 378 


37 
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0A81 
0А85 
0А89 
0А8С 
OA8E 
0A90 
0A92 
380 2 


0A95 
0A98 
381 2 


382 3 


0A9B 

0А90 

OA9E 
583 3 


ОАА1 

ОАА5 

ОАА? 

ОАА9 

ОААС 
384 3 


OAAF 

0ΑΒΊ 

0AB2 
209. ἢ 


ОАВ5 
386 3 


0АВ8 
387 3 


ОАВВ 
OACO 
OAC2 
OAC4 
OAC5 
OACÓ 
OACB 
OACD 
OACF 
OADO 
0AD1 
OAD3 
OAD5 


0А07 
OADA 
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FF366F00 PUSH T 5.7) 
FF366600 PUSH CHAR е Ё 
E8D4F9 CALL SIOVALIDREG 
F6D0 NOT AL 
0008 RCR AL, 1 
7303 JNB $+5H 
E971F7 JMP ERROR 
I = REGSINDEX; 
; STATEMENT 
A12bE00 MOV AX, REGINDEX 
A27000 MOV I,AL 
DO WHILE TRUE; 
; STATEMENT 
9152: 
CALL SIOSOUTSCHAR('='); 
; STATEMENT 
возо MOV AL , 3DH 
50 PUSH AX xci 
E84EF8 CALL SIOOUTCHAR 
CALL SIOSOUT$WORD(REG$SAV(I)); 
; STATEMENT 
8A1E7000 MOV BL,I 
B700 MOV BH,OH 
D1E3 SHL BX,1 
FF7730 PUSH REGSAV[BX]; 1 
E8B1F8 CALL SIOOUTWORD 
CALL SIOSOUTSCHAR('-'); 
; STATEMENT 
BO2D MOV AL, 2DH 
50 PUSH AX :3 
E83AF8 CALL SIOOUTCHAR 
CALL SIOSOUTSBLANK; 
; STATEMENT 
E8BFF8 CALL SIOOUTBLANK 
CALL SIOSGETSCHAR; 
; STATEMENT 
E854F8 CALL SIOGETCHAR 
IF СНАК<>!,! AND CHAR<>ASCR THEN 
; STATEMENT 
803E66002C CMP CHAR, 2CH 
BOFF MOV AL, OFFH 
7501 JNZ $+3H 
40 INC AX 
50 PUSH AX . 7 
803E66000D CMP CHAR, ODH 
BOFF MOV AL, OFFH 
7501 JNZ $+3H 
40 INC AX 
59 POP CX 4 1 
22C1 AND AL,CL 
0008 ЕСЕ А(,1 
7333 JNB 957 
DO; 
SAVE = SIO$GET$WORD; 
; STATEMENT 
E816FA CALL SIOGETWORD 
A35400 MOV SAVE , AX 


# 380 


# 381 


# 382 


# 383 


# 384 


# 385 


# 386 


# 387 


# 389 
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392 


4 


OADD 
OAE2 
OAE4 
OAE6 
OAE7 
OAE8 
OAED 
OAEF 
OAF1 
OAF2 
OAF3 
OAF5 
OAF7 
OAF9 


OAFC 
0800 
0802 
0802 
0807 


OBOA 
OBOF 
0811 
0813 
0814 
0815 
OB1A 
OB1C 
OB1E 
OB1F 
0B20 
0B22 
0B24 


0B26 
0B27 


0B28 


0820 


0830 
0833 
0835 
0837 
0839 
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IF (CHAR <> !,! ) AND (CHAR <> ASCR) THEN GOTO ERROR; 
- STATEMENT # 390 


803E66002C CMP CHAR, 2CH 
BOFF MOV AL, OFFH 
7501 JNZ $+3H 
40 INC AX 
50 PUSH AX 2721 
803Е660000 СМР CHAR , ODH 
BOFF MOV AL,OFFH 
7501 JNZ $+3H 
40 INC AX 
59 POP CX “4 
22C1 AND AL CL 
DOD8 RCR AL, 1 
7303 JNB $45H 
E90AF7 JMP ERROR 
REG$SAV(I) = SAVE; 
; STATEMENT # 392 
8A1E7000 MOV BL,I 
B700 MOV BH, OH 
D1E3 SHL BX, 1 
A15400 MOV AX, SAVE 
894730 MOV REGSAV [BX] , AX 
END; 
957: 
IF CHAR=ASCR OR I=13 THEN RETURN; 
; STATEMENT # 394 
803E66000D CMP CHAR , ODH 
BOFF MOV AL , OFFH 
7401 JZ $+3H 
40 INC AX 
50 PUSH AX $3 
803E70000D CMP I ,ODH 
BOFF MOV AL , OFFH 
7401 JZ $+3H 
40 INC AX 
59 POP CX dE 
OAC1 OR AL,CL 
0008 RCR AL, 1 
7302 JNB 959 
; STATEMENT # 395 
5D POP BP 
СЗ ВЕТ 
959: 
I =I + 1; 
; STATEMENT # 396 
8006700001 ADD I,1H 
CALL SIOSCRLF; 
; STATEMENT # 397 
E877F9 CALL SIOCRLF 


CALL SIOSOUTSCHAR(REG(CI*2)); 
; STATEMENT # 398 


A07000 MOV AL,I 
B102 MOV CL,2H 
F6E1 MUL CL 

89C3 MOV BX, AX 


2EFF7758 PUSH С5: КЕС [BX] 
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0830 EBAFF7 CALL —  SIOOUTCHAR 
399 3 CALL SIOSOUTSCHAR(REG(I*2*1)); 
; STATEMENT # 399 
0840 А07000 MOV AL, I 
0B43 B102 MOV CL,2H 
0845 Ғ6Е1 MUL CL 
0B47 89С3 MOV BX,AX 
0849 2EFF7759 PUSH  CS:REGI[BX*1H] 
OB4D Ε8ΦΕΕ7 CALL SIOOUTCHAR 
400 3 END; 
; STATEMENT # 400 
0B50 E948FF JMP 9152 
9153: 
401 2 END; 
; STATEMENT # 401 
0B53 5D POP BP 
0B54 C3 RET 
SIOEXAMREG ENDP 
402 1 SIOSMOVE : 


; STATEMENT # 402 
/* IMPLEMENTS THE MOVE COMMAND. ACCEPTS 3 ARGUMENTS AMD MOVES THE 
BLOCK OF MEMORY SPECIFIED BY ARG1-ARG2 TO ARG3. ARG2<ARG1 OR THERE 
IS A DIFFERENCE WHEN THE BYTE IS READ BACK, THEN ERROR. */ 


SIOMOVE PROC NEAR 
0B55 55 PUSH BP 
0856 8BEC MOV BP, SP 
PROCEDURE; 
403 2 CALL SIOSSCANSBLANK; 
; STATEMENT # 403 
0858 E883F9 CALL 5ΙΟ5ΟΑΝΒΙΑΝΚ 
404 2 CALL SIOSGET$ADDR(@ARG1,CS); /* FIRST ARGUMENT */ 
; STATEMENT # 404 
0B5B 8D061A00 LEA AX, ARG1 
OB5F 1E PUSH DS ; 1 
0B60 50 PUSH AX > 2 
0861 FF364000 PUSH ВЕСЅАМ+10Н; 3 
0865 E87CFA CALL 5ΙΟΩΕΤΑΌΌΒ 
405 2 IF CHAR<>',' THEN GOTO ERROR; 
; STATEMENT # 405 
0868 803Е66002С СМР CHAR, 2CH 
OB6D 7403 JZ $+5H 
OB6F E994F6 JMP ERROR 
407 2 CALL SIOSGETSCHAR; 
; STATEMENT # 407 
0872 E89AF7 CALL 5ΙΟΩΕΤΟΗΑΒ 
408 2 ΕΝΌΦΟΕΕ = SIO$GET$WORD; /* SECOND ARGUMENT */ 
; STATEMENT # 408 
0875 Е878Ғ9 CALL ЅІОСЕТМОВО 
0878 431800 MOV ENDOFF , AX 
409 2 ΙΕ ENDSOFF<ARG1.OFF THEN GOTO ERROR; 
; STATEMENT # 409 
0878 A11800 MOV ΑΧ, ENDOFF 
OB7E 3В061А00 CMP AX, ARG1 
0882 7303 JNB $+5H 
0B84 E97FF6 JMP ERROR 


411 2 IF CHAR<>',' THEN GOTO ERROR; 
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; STATEMENT # 411 


0887  803E66002C CMP CHAR , 2CH 
OB8C 7403 JZ $+5H 
OB8E Е975Ғ6 JMP ERROR 
413 2 CALL SIOSGETSCHAR; 
; STATEMENT # 413 
0891 E87BF7 CALL SIOGETCHAR 
414 2 CALL SIOSGETSADDR(@ARG3S,CS); /* THIRD ARGUMENT */ 
; STATEMENT # 414 
0894 80061Е00 LEA AX , ARG3 
0898 1E PUSH DS ә. "1 
0899 50 PUSH AX 4-2 
OB9A FF364000 PUSH REGSAV+10H; 3 
OB9E E843FA CALL SIOGETADDR 
415 2 IF CHAR<>ASCR THEN GOTO ERROR; 
; STATEMENT # 415 
OBA1 803E66000D CMP CHAR , ODH 
OBA6 7403 JZ $+5H 
OBA8 Е95ВҒ6 JMP ERROR 
417 2 CALL SIOSCRLF; 
; STATEMENT # 417 
OBAB EB8F9F8 CALL SIOCRLF 
418 2 LOOP: 
; STATEMENT # 418 
LOOP: 
MEMORYSARG3 = MEMORYSARG1; 
OBAE C41E1A00 LES BX ,MEMORYARGIPTR 
OBB2 268A07 MOV AL , ES: MEMORYARG1 [BX] 
0ΒΒ5 С41Е1Е00 LES BX ,MEMORYARG3PTR 
OBB9 268807 MOV ES:MEMORYARG3 [BX] , AL 
419 2 IF MEMORYSARG3<>MEMORYSARG1 THEN GOTO ERROR; 
; STATEMENT # 419 
OBBC C41E1E00 LES BX ,MEMORYARG3PTR 
OBCO 268A07 MOV AL ,ES:MEMORYARG3 [BX] 
08635 C41E1A00 LES BX ,MEMORYARGIPTR 
OBC7 263A07 CMP AL , ES: MEMORYARG1 [BX] 
OBCA 7403 JZ $+5H 
OBCC E937F6 JMP ERROR 
421 2 IF ARG1.OFF = ENDSOFF THEN RETURN; 
; STATEMENT # 421 
OBCF A11A00 MOV AX , ARG1 
OBD2 358061800 CMP AX,ENDOFF 
0806 7502 JNZ 965 
; STATEMENT # 422 
OBD8 50 POP BP 
OBD9 C3 RET 
965: 
4235 2 ARG1.OFF = ARG1.OFF + 1; 
; STATEMENT # 423 
OBDA 83061A0001 ADD ARG1,1H 
424 2 ARG3.OFF = ARG3.OFF + 1; 
; STATEMENT # 424 
OBDF 83061Е0001 ADD ARG3 , 1H 
425 2 GOTO LOOP; 
; STATEMENT # 425 
OBE4  EBC8 JMP LOOP 


426 2 END; 
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SIOMOVE ENDP 
427 1 SIOSDISPLAY: 
; STATEMENT # 427 
/* IMPLEMENTS THE DISPLAY BYTE COMMAND. IF CALLED WITH 1 PARM THEN 
OUTPUTS A SINGLE BYTE. IF CALLED WITH 2 PARMS THEN OUTPUTS THE RANGE 
BETWEEN THE TWO ADDRESSES. IF OFFSET«BEGIN THEN OUTPUTS ONLY A SINGLE 
BYTE. */ 
SIODISPLAY PROC NEAR 
OBE6 55 PUSH BP 
OBE7 8ВЕС MOV BP, SP 
PROCEDURE; 
428 2 DECLARE T BYTE; 
429 2 CALL SIOSTESTSWORDSMODE ; 
; STATEMENT # 429 
OBE9 ES8CCF8 CALL SIOTESTWORDMODE 
430 2 CALL SIOSGETSADDR(@ARG1,CS); 
: STATEMENT # 430 
ОВЕС 80061А00 LEA AX , ARG1 
OBFO 1E PUSH DS * 1 
OBF1 50 PUSH AX 1: Φ 
0862 FF364000 PUSH REGSAV+10H; 3 
OBFÓ EBEBF9 CALL SIOGETADDR 
451 2 IF CHAR=ASCR THEN 
; STATEMENT # 431 
OBF9 803Е660000 CMP CHAR , ODH 
OBFE 7508 JNZ 966 
432 2 ENDSOFF = ARGÍ.OFF; 
; STATEMENT # 432 
OCOO A11A00 MOV AX, ARG1 
06035 A31800 MOV ENDOFF , AX 
OCOÓ EB29 JMP NEWLINE 
966: 
ELSE 
433 2 DO; 
434 3 IF CHAR«»',' THEN GOTO ERROR; 
; STATEMENT # 434 
0608 805Е66002С CMP CHAR , 2CH 
0600 7403 JZ $+5H 
OCOF E9F4F5 JMP ERROR 
436 3 CALL SIOSGETSCHAR; 
; STATEMENT # 436 
0С12 EB8FAF6 CALL SIOGETCHAR 
437 3 ENDSOFF = SIOSGETSWORD; 
; STATEMENT # 437 
0С15 E8D8F8 CALL SIOGETWORD 
0C18 431800 MOV ENDOFF , AX 
438 3 IF ENDSOFF < ARG1.OFF THEN GOTO ERROR; 
; STATEMENT # 438 
OC1B A11800 MOV AX, ENDOF F 
OC1E 3B061A00 CMP AX , ARG1 
0c22 7303 JNB $+5H 
0524  E9DFF5 JMP ERROR 
440 3 IF CHAR<>ASCR THEN GOTO ERROR; 
: STATEMENT # 440 
0c27 803Е660000 CMP CHAR , ODH 
0025 7403 JZ $+5H 
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565 


&&5 


446 


447 
448 


449 


451 


452 


453 


454 


UN гә 


002Ε  E9D5F5 JMP ERROR 
END; 
NEWLINE: 
> STATEMENT # 443 
NEWLINE: 
CALL SIOSCRLF; 
0C31 E873F8 CALL — SIOCRLF 


CALL SIOSOUTSWORD(ARG1.OFF); 
; STATEMENT # 444 
OC34  FF361A00 PUSH ARG1 2:1 
0C38 E825F7 CALL SIOOUTWORD 
LOOP: CALL SIOSOUTSBLANK; 
; STATEMENT # 445 
ООР: 
0C3B E839F7 CALL SIOOUTBLANK 
IF WORDSMODE THEN 
; STATEMENT X 446 


OCSE  A06900 MOV AL , WORDMODE 
OC41 0008 RCR AL, 1 
0С43 731C JNB 971 

DO; 


CALL SIOSOUTSWORD (MEMORYS$WORDSARG1) ; 
; STATEMENT # 448 


0C45 C41E1A00 LES BX ,MEMORYARGIPTR 
0C49 26FF37 PUSH ES : MEMORYWORDARG1 [BX] 
0СаС Е811Ғ7 CALL SIOOUTWORD 


IF ARG1.OFF = ЕМОФОЕЕ THEN RETURN; 
; STATEMENT # 449 


OC4F A11A00 MOV AX, ARG1 
0c52 58061800 CMP AX, ENDOFF 
0c56 7502 JNZ 972 
; STATEMENT # 450 
0C58 5D POP BP 
005ο C3 RET 
972: 


ARG1.OFF = ARG1.OFF + 1; 
; STATEMENT # 451 


OC5A 83061A0001 ADD ARG1, 1H 
END; 
; STATEMENT # 452 
OC5F EBOA JMP 975 
971: 
ELSE 


CALL SIOSOUTSBYTE(MEMORYSARG1); 
; STATEMENT # 453 


0C61 C41E1A00 LES BX ,MEMORYARGIPTR 
0С65 26FF37 PUSH ES:MEMORYARG1 [BX] 
0С68 Е8С5Ғ6 CALL SIOOUTBYTE 

97/5: 


IF ARG1.OFF>=ENDSOFF THEN RETURN; 
; STATEMENT # 454 


0068 A11A00 MOV AX, ARG1 
OC6E 38061800 CMP ΑΧ, ΕΝΡΟΕΕ 
0072 7202 JB 974 
; STATEMENT # 455 
0C74 5D POP BP 


0С75 СЗ КЕТ 


РАСЕ 


45 
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974: 
456 2 ARG1.OFF = ARG1.OFF + 1; 
; STATEMENT # 456 
0C76  83061A0001 ADD ARG1 , 1H 
457 2 T = ARG1.OFF AND OOOFH; 
; STATEMENT # 457 
0678 A11A00 MOV AX, ARG1 
OC7E 250F00 AND AX, OFH 
0C81 А27100 MOV T,AL 
458 2 IF Т=0 OR (WORDSMODE AND T=1) THEN GOTO NEWLINE; 
; STATEMENT # 458 
0084 823710000 CMP T,OH 
OC89 BOFF MOV AL, OFFH 
0С8В 7401 JZ $+3H 
0580 40 INC AX 
OC8E 50 PUSH AX . 1 
OC8F 803Е710001 CMP T, 1H 
0094  BOFF MOV AL, OFFH 
0C96 7401 JZ $+3H 
0с98 40 INC AX 
0C99 22066900 AND AL , WORDMODE 
0С90 59 РОР CX $3 
OC9E ОАС1 OR AL,CL 
OCAO 0008 RCR AL,1 
OCA2 7280 JB NEWLINE 
460 2 GOTO LOOP; 
; STATEMENT # 460 
OCA4  EB95 JMP LOOP 
461 2 END; 
SIODISPLAY ENDP 
462 1 SIOSINPUT: 
; STATEMENT # 462 
/* THIS ROUTINE IMPLEMENTS THE 'INPUT' COMMAND. USER SPECIFIES 
A PORT AND THE DATUM OF THE PORT IS DISPLAYED. */ 
SIOINPUT PROC NEAR 
OCA6 55 PUSH BP 
ОСА? 8ВЕС МОУ BP,SP 
PROCEDURE ; 
463 2 DECLARE PORT WORD; 
464 2 CALL SIOSTESTSWORDSMODE ; 
; STATEMENT # 464 
OCA9 Е80СЕ8 CALL SIOTESTWORDMODE 
465 2 PORT = SIOSGETSWORD; 
; STATEMENT # 465 
OCAC Е841Ғ8 CALL SIOGETWORD 
OCAF A35600 MOV PORT , AX 
466 2 LOOP : 
; STATEMENT # 466 
LOOP: 
OCB2 803E66002C CMP CHAR,2CH 
OCB7 7403 JZ $+5H 
OCB9 Е94АҒ5 JMP ERROR 
IF CHAR«»',' THEN GOTO ERROR; 
468 2 CALL SIOSCRLF; 


OCBC 


ΕδΕδΕΖ CALL 


; STATEMENT # 468 
SIOCRLF 


PL/M-86 COMPILER 


SDK86 SERIAL MONITOR 


469 2 IF WORD$MODE THEN 
; STATEMENT # 469 
OCBF  A06900 MOV AL , WORDMODE 
OCC2 р008 RCR AL, 1 
OCC4 730B JNB 977 
470 2 CALL SIOSOUTSWORD( INWORD(PORT)); 
; STATEMENT # 470 
OCC6 8В165600 MOV DX, PORT 
OCCA ED INW DX 
OCCB 50 PUSH AX 23 
OCCC Е891Ғ6 CALL SIOOUTWORD 
OCCF ЕВ09 JMP 978 
977: 
ELSE 
471 CALL SIOSOUTSBYTECINPUT(PORT)); 
; STATEMENT # 471 
OCD1 88165600 MOV DX, PORT 
OCD5 EC IN DX 
OCD6 50 PUSH AX 6:74 
OCD7 Е856Ғ6 CALL SIOOUTBYTE 
978: 
472 CALL SIOSGETSCHAR; 
; STATEMENT # 472 
OCDA Е852Ғ6 CALL SIOGETCHAR 
473 IF CHAR=ASCR THEN RETURN; 
; STATEMENT # 473 
OCDD 803E66000D CMP CHAR, ООН 
OCE2 75СЕ JNZ LOOP 
; STATEMENT # 474 
OCE4 50 POP BP 
ОСЕ5 СЗ КЕТ 
475 СОТО LOOP; 
476 END; 
SIOINPUT ENDP 
477 SIOSOUTPUT: 
; STATEMENT # 477 
/* THIS ROUTINE IMPLEMENTS THE 'OUTPUT' COMMAND. 
DATUM IS OUTPUT TO THE SPECIFIED PORT. */ 
SIOOUTPUT PROC NEAR 
OCEÓ 55 PUSH BP 
ОСЕ? 8ВЕС MOV BP,SP 
PROCEDURE; 
478 DECLARE (DATUM,PORT) WORD; 
479 CALL SIOSTESTSWORDSMODE ; 
; STATEMENT # 479 
OCE9 E8CCF7 CALL SIOTESTWORDMODE 
480 PORT = SIOSGETSWORD; 
; STATEMENT # 480 
OCEC Е801Ғ8 CALL SIOGETWORD 
OCEF A35A00 MOV PORT , AX 
481 IF CHAR<>',' THEN GOTO ERROR; 
; STATEMENT # 481 
OCF2 803E66002C CMP CHAR , 2CH 
OCF7 7403 JZ $+5H 
OCF9 Е9ОАЕ5 JMP ERROR 
483 CALL SIOSGETSCHAR; 
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484 


485 


487 


488 


489 


490 


491 
492 


493 


494 


495 


496 


498 


OCFC 


OCFF 
0D02 


0D05 
ODOA 
ODOC 


ODOF 
0012 
0014 


0016 
OD1A 
0010 
001Е 


0020 
0023 
0027 


0028 
0020 


OD2F 


0D32 
0034 
0035 


0038 


0038 


OD3E 
0043 


; STATEMENT 
E810F6 CALL SIOGETCHAR 
LOOP: 
; STATEMENT 
LOOP: 
DATUM = SIOSGETSWORD; 
E8EEF7 CALL SIOGETWORD 
A35800 MOV DATUM, AX 
IF CHAR=':' THEN GOTO ERROR; 
; STATEMENT 
803E66003A CMP CHAR , 3AH 
7503 JNZ | $+5H 
E9F7F4 JMP ERROR 
IF WORDSMODE THEN 
; STATEMENT 
A06900 MOV AL , WORDMODE 
0008 ЕСЕ AL, 1 
730A JNB a82 
OUTWORD( PORT) = DATUM; 
; STATEMENT 
8B165A00 MOV DX,PORT 
A15800 MOV AX , DATUM 
EF OUTW DX 
ЕВ08 JMP 983 
982: 
ELSE 
ООТРОТ(РОКТ) = LOW(DATUM); 
; STATEMENT 
A15800 MOV AX , DATUM 
8B165A00 MOV DX,PORT 
EE OUT DX 
983: 
IF CHAR=',' THEN 
; STATEMENT 
803E66002C CMP CHAR , 2CH 
7516 JNZ 984 
DO; 
CALL SIOSCRLF; 
; STATEMENT 
E875F7 CALL SIOCRLF 
CALL SIOSOUTSCHAR('-'); 
; STATEMENT 
BO2D MOV AL , 2DH 
50 PUSH AX f 3 
E8B7F5 CALL SIOOUTCHAR 
CALL SIOSOUTSBLANK; 
; STATEMENT 
E83CF6 CALL SIOOUTBLANK 
CALL SIOSGETSCHAR; 
; STATEMENT 
E8D1F5 CALL SIOGETCHAR 
IF CHAR «» ASCR THEN GOTO LOOP; 
; STATEMENT 
803E66000D CMP CHAR , ODH 
75BA JNZ LOOP 


; STATEMENT 
END; 





# 483 


# 484 


# 485 


# 487 


# 488 


# 489 


# 490 


# 492 


# 493 


# 494 


# 495 


# 496 


# 497 
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984: 
499 2 END; 
; STATEMENT # 499 
0045 5D POP BP 
0046 СЗ RET 
SIOOUTPUT ENDP 
500 1 SIOSWRITE: 


; STATEMENT # 500 
/* IMPLEMENTS THE PAPER TAPE WRITE COMMAND. OUTPUTS LEADING NULLS, 
EXTENDED ADDRESS RECORD (8086 ONLY), START ADDRESS RECORDS 
(8086 ONLY), DATA RECORDS, EOF RECORD, AND TRAILING NULLS. */ 


SIOWRITE PROC NEAR 
0047 55 PUSH BP 
0048 8ВЕС MOV BP,SP 
PROCEDURE ; 
501 2 DECLARE (STARTSREC,MODE$8086) BYTE, (LEN, INDEX) WORD; 
502 2 CALL 510%СЕТФСНАК; 
; STATEMENT # 502 
OD4A Е8С2Ғ5 CALL SIOGETCHAR 
503 2 MODE$8086 = TRUE; 
; STATEMENT # 503 
0040  C6067300FF MOV MODE8086, OFFH 
504 2 IF CHARz'X' THEN /* TEST FOR 8080 MODE */ 
; STATEMENT # 504 
0052 805Е660058 СМР CHAR , 58H 
0057 7508 JNZ 986 
505 2 DO; 
506 3 MODE$8086 = FALSE; 
; STATEMENT # 506 
0059 С606730000 MOV MODE8086, OH 
507 3 CALL SIOSGET$CHAR; 
; STATEMENT # 507 
OD5E ΕδΑΕΕΣ CALL SIOGETCHAR 
508 3 END; 
986: 
509 2 IF CHAR=ASBL THEN CALL SIOSGETSCHAR; 
; STATEMENT # 509 
0061 803Е660020 CMP CHAR , 20H 
OD66 7503 JNZ 987 
; STATEMENT # 510 
0068 ES8A4F5 CALL SIOGETCHAR 
987: 
311 2 CALL 510%СЕТФАООЕ(ФАКС1,С5); 
; STATEMENT # 511 
OD6B 80061А00 LEA AX, ARG1 
006Ғ ЛЕ PUSH DS HE 
0070 50 PUSH AX $ 2 
0071 FF364000 PUSH REGSAV*10H; 3 
0075 E86CF8 CALL SIOGETADDR 
912 2 IF СНАК<>!,! THEN GOTO ERROR; 
; STATEMENT # 512 
0078 805Е66002С CMP CHAR, 2CH 
OD7D 7403 JZ $+5H 
OD7F E984F4 JMP ERROR 
514 2 CALL SIOSGETSCHAR; 


; STATEMENT # 514 
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0082 E88AF5 CALL SIOGETCHAR 
515 2 ЕМОФОҒҒ = SIOSGETSWORD; 
; STATEMENT # 515 
0085 E868F7 CALL SIOGETWORD 
0088  A31800 MOV ENDOFF , AX 
516 2 IF ENDSOFF<ARG1.OFF THEN GOTO ERROR; 
; STATEMENT # 516 
0088 A11800 MOV AX ,ENDOF F 
OD8E 3B061A00 CMP AX, ARG1 
0092 7303 JNB $+5H 
0094  E96FF4 JMP ERROR 
518 2 IF CHAR<>ASCR THEN 
; STATEMENT # 518 
0097  803E66000D CMP CHAR, ODH 
009С 7417 JZ 990 
519 2 DO; 
520 3 STARTSREC = TRUE; 
; STATEMENT # 520 
OD9E C6067200FF MOV STARTREC, OF FH 
521 3 CALL SIOSGETSCHAR; 
; STATEMENT # 521 
ODA3 Е869Ғ5 CALL SIOGETCHAR 
522 3 CALL SIO$SGETSADDR(@ARG3S,CS); 
; STATEMENT # 522 
ODA6 80061Е00 LEA AX, ARG3 
ODAA 1Е PUSH DS $ 1 
ODAB 50 PUSH AX ΗΝ 
ODAC FF364000 PUSH REGSAV+10H; 3 
ODBO Е831Е8 CALL SIOGETADDR 
525° 3. END; 
; STATEMENT # 523 
ODB3 ЕВОВ JMP 991 
990: 
ELSE 
524 2 DO; 
525 3 STARTSREC = FALSE; 
; STATEMENT # 525 
0085 С606720000 MOV STARTREC , OH 
526 3 ARG3.OFF = 0; 


; STATEMENT # 526 
ODBA С7061Е000000 MOV ARG3, OH 


527 3 END; 
991: 
528 2 IF CHAR<>ASCR THEN GOTO ERROR; 
; STATEMENT # 528 
ODCO 803Е660000 CMP CHAR , ODH 
ODC5 7403 JZ $+5H 
ODC7 E93CF4 JMP ERROR 
530 2 CALL SIOSCRLF; 
; STATEMENT # 530 
ODCA E8DAF6 CALL SIOCRLF 
551 2 DO I=1 TO 60; /* LEADING NULLS */ 
; STATEMENT # 531 
ODCD  C606680001 MOV I,1H 
9154: 


0002 803E680035C СМР 1,3CH 
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0007 7700 JA 9155 
532 3 CALL SIOSOUTSCHAR(0); 
; STATEMENT # 532 
0009 8000 MOV AL, OH 
ODDB 50 PUSH АХ ; 1 
ODDC E810F5 CALL  SIOOUTCHAR 
533 3 END; 
; STATEMENT # 533 
ODDF 8006680001 ADD 1,1H 
ODE4 75ЕС JNZ 9154 
9155: 
534 2 CALL SIO$CRLF; 
; STATEMENT # 534 
ODE6  EBBEFÓ CALL — SIOCRLF 
535 2 IF MODE$8086 THEN 
; STATEMENT # 535 
ODE9 А07300 MOV AL , MODE8086 
ODEC 0008 RCR AL, 1 
ODEE 734E JNB 393 
536 2 DO; 
537 3 IF STARTSREC THEN 
; STATEMENT # 537 
ODFO А07200 MOV AL, STARTREC 
ODF3 0008 RCR AL, 1 
ODF5 7328 JNB 294 
538 3 00; 
539 4 CALL SIOSOUTSHEADER(04,0,03); /* START ADDRESS RECORD */ 
- STATEMENT # 539 
ODF7 B004 MOV AL, 4H 
ODF9 50 PUSH AX ; 1 
ODFA 880000 MOV AX, OH 
ODFD 50 PUSH AX ; 2 
ODFE B003 MOV AL, 3H 
0Е00 50 PUSH AX ; 3 
0Е01 Е8В1Ғ5 CALL ЅІОООТНЕАРЕК 
540 4 CALL SIOSOUTS$WORD(ARG3.SEG); 
; STATEMENT # 540 
0Е04 FF362000 PUSH  ARG3+2H ; 1 
0Е08 Е855Е5 CALL  SIOOUTWORD 
541 4 CALL SIOSOUT$WORD(ARG3.OFF); 
; STATEMENT # 541 
OEOB FF361E00 PUSH ARGS; 1 
OEOF E84EF5 CALL  SIOOUTWORD 
542 4 CALL SIOSOUT$BYTE(CHECK$SUM) ; 
; STATEMENT # 542 
0Е12 FF366700 PUSH CHECKSUM; 1 
0Е16 E817F5 CALL 5ΙΟΟΌΤΒΥΤΕ 
543 4 CALL SIOSCRLF; 
; STATEMENT # 543 
0E19 E88BF6 CALL ^ SIOCRLF 
544 4 ARG3.OFF = 0; 


; STATEMENT # 544 
OE1C С7061Е000000 MOV ARGS3 , OH 
545 4 END; 
094: 
546 3 CALL SIOSOUTSHEADER(02,0,02); /* EXTENDED ADDRESS RECORD */ 
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; STATEMENT # 546 


OE22 B002 MOV AL , 2H 
OE24 50 PUSH AX s] 
OE25 B90000 MOV CX, OH 
OE28 51 PUSH CX 4 2 
0Е29 50 PUSH AX . 3 
OE2A Е888Ғ5 CALL SIOOUTHEADER 
547 3 CALL SIOS$OUTSWORD (ARG1.SEG); 
; STATEMENT # 547 
OE2D FF361C00 PUSH ARG1*2H ; 1 
OE31 Е82СЕ5 CALL SIOOUTWORD 
548 3 CALL SIOSOUTSBYTE(CHECK$SUM) ; 
; STATEMENT # 548 
0Е34  FF366700 PUSH CHECKSUM; 1 
0638  EB8F5F4 CALL SIOOUTBYTE 
549 3 CALL SIOSCRLF; 
; STATEMENT # 549 
OES3B E869F6 CALL SIOCRLF 
550 3 END; 
993: 
551 2 LEN = STANDARDSLEN; /* DATA RECORD */ 


; STATEMENT # 551 
OE3E С7065С001000 моу LEN, 10H 


552 2 LOOP: INDEX = ENDSOFF - ARGÍ.OFF; 
; STATEMENT # 552 
LOOP: 
OE44 A11800 MOV AX,ENDOFF 
OE47  2B061A00 SUB AX , ARG1 
OE4B A35E00 MOV INDEX, AX 
553 2 IF INDEX<STANDARD$LEN THEN LEN = INDEX + 1; 
; STATEMENT # 553 
OE4E 83F810 CMP AX , 10H 
0Е51 7399 JNB 995 
; STATEMENT # 554 
0Е53 А15Е00 MOV AX , INDEX 
0Е56 83С001 ADD AX , 1H 
0659  A35COO MOV LEN, AX 
995: 
555 2 CALL SIOSOUTSHEADER(LEN,ARG1.OFF,00); 
; STATEMENT # 555 
OE5C FF365C00 PUSH LEN : 4 
OE60 FF361A00 PUSH ARG1 -- 
OE64 B000 MOV AL , OH 
0Е66 50 PUSH AX ; 3 
OE67 E84BF5 CALL SIOOUTHEADER 
556 2 DO I=1 TO LEN; 
; STATEMENT # 556 
OE6A  C606680001 MOV I,1H 
9156: 
OE6F А06800 MOV AL, I 
0Е72 B400 MOV AH, OH 
0E74 3B065C00 CMP AX,LEN 
0E78 7716 JA 9157 
557 3$ CALL SIOSOUTSBYTE(MEMORYSARG1) ; 


- STATEMENT # 557 
OE7A C41E1A00 LES BX, MEMORYARGTPTR 


PL/M-86 COMPILER 


558 


559 


560 


561 


562 


564 


565 


566 


567 


568 


569 


570 


OE7E 
0E81 


0E84 


0E89 
0E8E 


0E90 
0E94 


0E97 


OE9A 
OE9D 
ОЕАО 
OEA4 


OEA6 
OEA8 
OEA9 
OEAD 
OEAF 
OEBO 


OEB3 
OEB7 


OEBA 


OEBD 


OEC2 
OEC7 


OEC9 
OECB 
OECC 


OECF 
OED4 


SDK86 SERIAL MONITOR 


26FF37 PUSH ES:MEMORYARG1 [BX] 
EBACF4 CALL SIOOUTBYTE 
ARG1.OFF = ARG1.OFF + 1; 
; STATEMENT # 558 
83061A0001 ADD ARG1, 1H 
END; 
; STATEMENT # 559 
8006680001 ADD І,ІН 
T5DF JNZ 9156 
9157: 
CALL SIOSOUTSBYTE(CHECKS$SUM) ; 
; STATEMENT # 560 
FF366700 PUSH CHECKSUM; 1 
E899F4 CALL SIOOUTBYTE 
CALL SIOSCRLF; 
; STATEMENT # 561 
E80DF6 CALL SIOCRLF 
IF ENDSOFF<>ARG1.OFF-1 THEN GOTO LOOP; 
; STATEMENT # 562 
A11A00 MOV AX, ARG1 
83E801 SUB AX, 1H 
39061800 CMP ENDOFF , AX 
759Е JNZ LOOP 
CALL SIOSOUTSHEADER(00,ARG3.OFF,01); 
; STATEMENT # 564 
B000 MOV AL , OH 
50 PUSH AX . 3 
FF361E00 PUSH ARG3 . 2 
B001 MOV AL,1H 
50 PUSH AX “5 
Е802Е5 CALL SIOOUTHEADER 
CALL SIOSOUTSBYTE(CHECKS$SUM); 
; STATEMENT # 565 
FF366700 PUSH CHECKSUM; 1 
E876F4 CALL SIOOUTBYTE 
CALL SIOSCRLF; 
; STATEMENT # 566 
E8EAF5 CALL SIOCRLF 
DO I=1 TO 60; /* TRAILING NULLS */ 
; STATEMENT # 567 
C606680001 MOV I,1H 
9158: 
803E68003C CMP I,3CH 
770D JA 9159 
CALL SIOSOUTSCHAR(0); 
; STATEMENT # 568 
B000 MOV AL , OH 
50 PUSH AX $c] 
E820F4 CALL SIOOUTCHAR 
END; 
; STATEMENT # 569 
8006680001 ADD І,ІН 
TSEC JNZ 9158 
9159: 


END; 
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571 


572 
573 


574 


575 


576 


578 


580 


581 


583 


584 


585 


586 


; STATEMENT # 570 


OED6 5D POP BP 
OED7 C3 RET 
SIOWRITE ENDP 
SIOSREAD: 


; STATEMENT # 571 
/* IMPLEMENTS THE READ PAPER TAPE COMMAND. */ 
SIOREAD PROC NEAR 
0Е08 55 PUSH ВР 
OED9 8ВЕС MOV BP, SP 
PROCEDURE; 
DECLARE BIAS WORD, (RECSTYPE,LEN,I,T) BYTE, OFFSET WORD; 
BIAS = 0; /* DEFAULT BIAS */ 
; STATEMENT # 573 
OEDB С70660000000 моу BIAS, OH 
ARG1.SEG = 0; /* DEFAULT CS FOR 8080 FORMAT FILE */ 
; STATEMENT # 574 
OEE1 С7061С000000 моу ARG1+2H, OH 
CALL SIOSSCANSBLANK; 
; STATEMENT # 575 
OEE7 E8F4F5 CALL — SIOSCANBLANK 
IF CHAR<>ASCR THEN BIAS = SIOSGETSWORD; 
; STATEMENT # 576 


OEEA 803Е660000 CMP CHAR , ODH 
OEEF 7406 JZ 997 
; STATEMENT # 577 
OEF1 E8FCF5 CALL SIOGETWORD 
OEF4 A36000 MOV BIAS,AX 
997: 


IF CHAR<>ASCR THEN GOTO ERROR; 
; STATEMENT # 578 


OEF7 803Е660000 CMP CHAR , ODH 
OEFC 7403 JZ $+5H 
OEFE E905F3 JMP ERROR 


CALL SIOSCRLF; 
; STATEMENT # 580 


OF01 ES8A3F5 CALL SIOCRLF 
LOOP: 
; STATEMENT # 581 
LOOP: 
OF04 Е8ТВЕ? CALL SIOREADCHAR 
OF07 3C3A CMP AL , ЗАН 
OF09 75F9 JNZ LOOP 


DO WHILE SIOSREADSCHAR«»' : ' ; END; 
CHECK$SUM = 0; 
; STATEMENT # 583 
OFOB 606670000 MOV CHECKSUM, OH 
LEN = SIOSREADSBYTE; 
; STATEMENT # 584 
OF10 ΕΒΒΑΕ7 CALL —  SIOREADBYTE 
OF13 27500 MOV LEN, AL 
OFFSET = SIOSREADS$WORD; 
; STATEMENT # 585 
OF16 ΕΒΟΕΕ7 CALL 5ΙΟΒΕΑΡΜΟΒΌ 
OF19 36200 MOV OFFSET, AX 
ARG1.OFF = OFFSET + BIAS; 
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587 


588 


589 
590 


591 


592 
593 


594 


595 


596 


598 


599 


600 


OF1C 
OF1F 
OF23 


OF26 
OF29 


OF2C 
0F31 


0Е33 
0Е36 


0Е39 
OF3C 


OF3F 
OF44 


OF46 
OF49 


OF4C 
OF51 


OF53 
OF58 


OF5A 
OF5D 


OF60 
OF65 


OF67 
OF6C 


OF6F 
OF73 
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A16200 MOV AX , OFFSET 
03066000 ADD AX, BIAS 
A31A00 MOV ARG1, AX 
ΚΕΟΦΤΥΡΕ = SIOSREADSBYTE; 
; STATEMENT # 587 
E8A4F7 CALL SIOREADBYTE 
A27400 MOV RECTYPE,AL 
IF RECSTYPE=03 THEN /* START ADDR TYPE */ 
; STATEMENT # 588 
803E 740003 CMP RECTYPE, 3H 
750C JNZ a99 
DO; 
CS = SIOSREADSWORD; 
; STATEMENT # 590 
E8C2F7 CALL SIOREADWORD 
A34000 MOV REGSAV+10H, AX 
IP = SIOSREADSWORD; 
; STATEMENT # 591 
E8BCF7 CALL SIOREADWORD 
A34800 MOV REGSAV+18H, AX 
END; 
999: 
IF RECSTYPE=02 THEN /* EXTENDED ADDR TYPE */ 
; STATEMENT # 593 
803E740002 CMP RECTYPE , 2H 
7506 JNZ 9100 
ARG1.SEG = SIOSREADSWORD; 
; STATEMENT ἡ 594 
E8AFF7 CALL SI OREADWORD 
A31C00 MOV ARG1+2H, AX 
9100: 
IF ВЕСФТҮРЕ - 01 THEN /* EOF */ 
; STATEMENT # 595 
803E740001 CMP RECTYPE , 1H 
750D JNZ 9101 
IF OFFSET <> 0 THEN ІР - OFFSET; 
; STATEMENT # 596 
833E620000 CMP OFFSET , 0H 
7406 JZ 9101 
; STATEMENT # 597 
A16200 MOV АХ, OF FSET 
A34800 MOV REGSAV+18H, AX 
9101: 
IF RECSTYPE=00 THEN /* DATA TYPE */ 
; STATEMENT # 598 
823E740000 CMP RECTYPE , OH 
7537 JNZ 9103 
DO 1-1 TO LEN; 
; STATEMENT # 599 
С606760001 MOV 1,1Н 
9162: 
A07600 MOV AL,I 
3A067500 CMP AL,LEN 
7729 JA 9103 
T,MEMORYSARG1 = SIOSREADSBYTE; 


; STATEMENT # 586 


; STATEMENT # 600 


53 
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601 


603 


604 


605 


606 


608 


0Е75 
0Ғ78 
OF7B 
OF7F 


OF82 
OF86 
0Ғ89 
0Ғ80 
OFB8F 


OF92 


OF97 
OF9C 


OF9E 
OFA1 


OFA4 
OFA9 
OFAB 


OFAE 
0ҒВ3 
OFB5 
0ЕВ7 
0ЕВ8 
OFB9 
OFBE 
OFCO 
OFC2 
OFC3 
OFC4 
OFC6 
OFC8 
OFCA 


OFCD 
OFCF 
OFDO 


OFD3 
OFD5 
OFD6 


OFD9 
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E855F7 CALL SIOREADBYTE 
A27700 MOV T,AL 
C41E1A00 LES BX,MEMORYARGTPTR 
268807 MOV ES:MEMORYARG1 [BX] , AL 
IF MEMORYSARG1<>T THEN GOTO ERROR; 
; STATEMENT # 601 
C41E1A00 LES BX,MEMORYARGTPTR 
268A07 MOV AL , ES: MEMORYARG1 [BX] 
3A067700 CMP AL,T 
7403 JZ $45H 
Е974Ғ2 JMP ERROR 
ARG1.OFF = ARG1.OFF + 1; 
; STATEMENT # 603 
83061A0001 ADD ARG1 , 1H 
END; 
; STATEMENT # 604 
8006760001 ADD 1,19 
75CE JNZ 9162 
9103: 
T = SIOSREADSBYTE; /* FETCH CHECKSUM */ 
; STATEMENT # 605 
E82CF7 CALL SIOREADBYTE 
A27700 MOV T,AL 
IF CHECK$SUM«»0 THEN GOTO ERROR; 
; STATEMENT # 606 
823E670000 CMP CHECKSUM, OH 
7403 JZ $+5H 
E958F2 JMP ERROR 
IF RECSTYPE<>01 AND LEN«»0 THEN GOTO LOOP; 
; STATEMENT # 608 
803E 740001 CMP RECTYPE, 1H 
BOFF MOV AL, ОРЕН 
7501 JNZ $+3H 
40 INC AX 
50 PUSH AX : 3 
823E750000 CMP LEN , OH 
BOFF MOV АІ, ОРЕН 
7501 JNZ $+3H 
40 INC AX 
59 POP CX . 1 
22C1 AND AL,CL 
D0D8 RCR AL,1 
7303 JNB $45H 
E937FF JMP LOOP 
CALL SIOSOUTSCHAR(O); /* DELAY FOR LAST CR, LF SENT */ 
; STATEMENT # 610 
Β000 μον AL , OH 
50 PUSH AX E 
Е81СЕЗ CALL SIOOUTCHAR 
CALL SIOSOUTSCHAR(0); /* BY INTELLEC */ 
; STATEMENT # 611 
B000 MOV AL , OH 
50 PUSH AX 4 Ἴ 
E816F3 CALL SIOOUTCHAR 
END; 
; STATEMENT # 612 
5D POP BP 
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OFDA C3 RET 
SIOREAD ENDP 


уын ыы ыы ыы ыы ыы ыны 


* COMMAND DISPATCH MAIN PROGRAM LOOP * 
e e e e e e e he Ae He e e e e e he e Ae Ae e e e e e Ae Ae e e e e e e e e He e de de de de de Y 


613 1 DISABLE; 
; STATEMENT # 613 
00А8 ҒА CLI 
0049 2E8E16A400 MOV 55,С5:005ТАСКФҒКАМЕ 
OOAE BC4200 MOV SP , ggSTACKSOFFSET 
0081 8ВЕС MOV BP,SP 
00B3 2E8E1EA600 MOV 05,С5:0ФОАТАФҒКАМЕ 
0088 ҒВ STI 
0089 FA CLI 
614 1 OUTPUT(KBSSTATSPORT) = KBSINITSMODE; 
; STATEMENT # 614 
00ВА BAEAFF MOV DX, OFFEAH 
0080 B000 MOV AL,OH 
OOBF EE OUT DX 
615 1 ООТРИТ(КВ%5ТАТФРОКТ) = KBSINITSSCAN; 
; STATEMENT # 615 
0050 B039 MOV AL, 39H 
00С2 ЕЕ OUT DX 
616 1 OUTPUT (KBSSTATSPORT) = 90H; /* OUTPUT '8086' SIGNON BACKWARDS */ 
; STATEMENT # 616 
0065 B090 MOV AL , 90H 
0065 ЕЕ OUT DX 
617 1 DO І-0 TO 7; 
; STATEMENT # 617 
00C6 С606680000 MOV I ,0H 
9164: 
00СВ 805Е680007 СМР I,7H 
0000 7715 JA 9165 
618 2 OUTPUT(KBSDATASPORT) = KB$SIGNON(I); 
; STATEMENT # 618 
0002 8А1Е6800 MOV BL,I 
0006 B700 MOV BH,OH 
00D8 2E8A471B MOV AL,CS:KBSIGNON [BX] 
000С  BAEBFF MOV DX, OFFE8H 
OODF EE OUT DX 
619 2 END; 
; STATEMENT # 619 
00Е0 8006680001 ADD 1, 1H 
00Ε5 75Е4 JNZ 9164 
9165: 


/* THIS STRANGE SEQUENCE OF CODE IS USED TO GUARANTEE CORRECT USART 
INITIALIZATION AFTER EITHER: 1) HARDWARE RESET (EXPECTING MODE) 
2) SOFTWARE RESTART (EXPECTING COMMAND). */ 


620 1 OUTPUT(SIOSSTATSPORT) = SIO$8251$RESET; 
; STATEMENT # 620 
00Е7 BAF2FF MOV DX, OFFF2H 


OOEA B065 MOV AL ,65H 
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621 


622 


623 


624 


625 


626 


627 


628 


629 


630 


631 


632 


OOEC 


OOED 


00Ε0 
00F3 
00Ε5 


00Ғ6 


0019 
OOFC 
OOFE 


OOFF 


0102 
0105 
0107 


0108 


0108 
010Е 
0110 


0111 


0114 
0119 
011A 
0118 


011E 
0121 
0124 
0127 
012A 
012D 
0130 
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EE OUT DX 
CALL $10$8251$SETTLINGSDELAY; 
; STATEMENT # 621 
E8E902 CALL —— $108251SETTLINGDELAY 


OUTPUT(SIO$STAT$PORT) = 25H; 
; STATEMENT # 622 


BAF2FF MOV DX, OFFF2H 
B025 MOV AL, 25H 
EE OUT DX 
CALL $10$8251$SETTLINGSDELAY; 
; STATEMENT # 623 
E8E002 CALL —  SIOB251SETTLINGDELAY 


OUTPUT(SIOSSTATSPORT) = SIO$8251$RESET; 
; STATEMENT # 624 


BAF2FF MOV DX,OFFF2H 
B065 MOV AL, 65H 
EE OUT DX 
CALL SIO$8251$SETTLINGSDELAY; 
; STATEMENT # 625 
Е80702 CALL $108251SETTLINGDELAY 


OUTPUT(SIOSSTATSPORT) = SIO$8251$MODE; 
; STATEMENT # 626 


BAF2FF MOV DX, OF FF2H 
BOCF MOV AL, OCFH 
EE OUT DX 
CALL SIO$8251$SETTLINGSDELAY; 
: STATEMENT # 627 
E8CE02 CALL — SIOB251SETTLINGDELAY 


OUTPUT(SIOSSTAT$PORT) = S10$8251$CMND; 
; STATEMENT # 628 


BAF 2FF MOV DX, OFFF2H 
В025 MOV AL , 25H 
EE OUT DX 
CALL SIO$8251$SETTLINGS$DELAY; 
; STATEMENT # 629 
E8C502 CALL $108251SETTLINGDELAY 


CALL SIOSOUTSSTRING(@SIO$SIGNON); 
; STATEMENT # 630 


2E8D062700 LEA AX, CS:SIOSIGNON 
OE PUSH CS ; 1 
50 PUSH AX ; 2 
E86402 CALL  SIOOUTSTRING 

/* INITIALIZE USER'S REGISTERS */ 

CS,SS,DS,ES,FL,IP = 0; 

; STATEMENT # 631 

B80000 MOV AX, OH 
A34000 MOV REGSAV+10H, AX 
A34400 MOV REGSAV* 14H, AX 
A34200 MOV REGSAV+12H, AX 
A34600 MOV REGSAV+16H, AX 
A34A00 MOV REGSAV+1AH, AX 
A34800 MOV REGSAV+18H, AX 


SP = USERSINITSSP; 
; STATEMENT # 632 


/* INITIALIZE INTERRUPT VECTORS */ 
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633 


634 


635 


636 


637 


638 


639 


640 


641 


0133 


0139 
013D 
013E 
013F 
0142 
0143 


0146 
014A 
0148 
014С 
014Ғ 
0150 


0153 
0157 
0158 
0159 
015С 
0150 


0160 


0165 
0167 


016A 
016C 


016F 
0172 
0174 


0179 


017C 
017E 
017F 


0182 
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C70638000001 моу REGSAV+8H, 100H 
CALL INITSINTSVECTOR(GINTSVECTOR( 1), . INTERRUPT1SENTRY); 
; STATEMENT # 633 
80060400 LEA AX, INTVECTOR+4H 
1E PUSH DS ; 1 
50 PUSH AX ; 2 
B8DF07 MOV AX ,OFFSET(INTERRUPTTENTRY ) 
50 PUSH AX ; 3 
E82B07 CALL — INITINTVECTOR 
CALL INITSINTSVECTOR(GINTSVECTOR(2), . INTERRUPTSSENTRY) ; 
> STATEMENT # 634 
80060800 LEA AX, INTVECTOR+8H 
1E PUSH DS ‚1 
50 PUSH АХ ; 2 
B85108 MOV AX, OFFSET( INTERRUPTSENTRY ) 
50 PUSH AX ; 3 
E81E07 CALL — INITINTVECTOR 
CALL INITSINTSVECTOR(@INTSVECTOR(3), . INTERRUPTZSENTRY); 
; STATEMENT # 635 
8D060C00 LEA AX, INTVECTOR*OCH 
1E PUSH DS ; 1 
50 PUSH АХ ; 2 
B85108 MOV AX ,OFFSET(INTERRUPTSENTRY ) 
50 PUSH AX ; 3 
E81107 CALL —— INITINTVECTOR 
BRK1$FLAG = FALSE; 
; STATEMENT # 636 
C606640000 MOV BRK1FLAG, OH 
MONITORSSTACKPTR = STACKPTR; 
> STATEMENT # 637 
89Е0 MOV AX,SP 
A31400 MOV MONI TORSTACKPTR, AX 
MONITORSSTACKBASE = STACKBASE; 
; STATEMENT # 638 
8CDO MOV AX,SS 
A31600 MOV MONITORSTACKBASE , AX 
NEXTSCOMMAND : 
- STATEMENT # 639 
/* THIS IS THE PERPETUAL COMMAND LOOP WHICH DISPATCHES TO EACH 
COMMAND WHICH IS A SEPARATED PROCEDURE. */ 
NEXTCOMMAND : 
BC4200 MOV SP , G9 STACKSOFFSET 
8BEC MOV BP, SP 
2E8E 1EA600 MOV DS, CS: QQDATASFRAME 
CALL SIOSCRLF; 
E82803 CALL SIOCRLF 
CALL SIOSOUTSCHAR(0); 
; STATEMENT # 640 
B000 MOV AL, OH 
50 PUSH AX ; 1 
E86D01 CALL  SIOOUTCHAR 
CALL SIOSOUTSCHAR('.'); 
; STATEMENT # 641 
BO2E MOV AL, 2EH 
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0184 50 PUSH AX ; 4 
0185 £86701 CALL SIOOUTCHAR 
642 1 CALL SIOSGETSCHAR; 
; STATEMENT # 642 
0188 Е88401 CALL SIOGETCHAR 
643 1 DO 1=0 TO LAST(SIOSCMND); 
; STATEMENT # 643 
018B C606680000 MOV I,0H 
9166: 
0190 803Е680009 CMP 1,9H 
0195 776F JA ERROR 
644 2 IF CHAR=SIO$CMND(I) THEN GOTO DISPATCH; 
; STATEMENT # 644 
0197 A06600 MOV AL,CHAR 
019A 8A1E6800 MOV BL, I 
019Е В700 MOV BH, OH 
01A0 2E3A474E CMP AL,CS:SIOCMND [BX] 
01A4 7409 JZ DISPATCH 
646 2 END; 
; STATEMENT # 646 
01A6 8006680001 ADD 1, 1H 
01AB 75E3 JNZ 9166 
647 1 GOTO ERROR; 
; STATEMENT # 647 
01AD EB57 JMP ERROR 
648 1 DISPATCH: 
; STATEMENT # 648 
DISPATCH: 
LASTSCOMMAND = I; 
ОЛАҒ А06800 MOV AL, I 
01B2 A26A00 MOV LASTCOMMAND , AL 
649 1 DO CASE I; 
; STATEMENT # 649 
0185 B400 MOV ΑΗ, OH 
0187 89C3 MOV BX , AX 
01B9 D1E3 SLL BX, 1 
01BB 2EFFA7F201 JMP CS:3168 [BX] 
650 2 CALL SIOSEXAMSMEM; 
; STATEMENT # 650 
9109: 
01CO Е86307 CALL SIOEXAMMEM 
01C3 ЕВАА JMP NEXTCOMMAND 
651 2 CALL SIOSEXAMSREG; 
; STATEMENT # 651 
9110: 
01С5 Е85Е08 CALL SIOEXAMREG 
01C8 ЕВА5 JMP NEXTCOMMAND 
652 2 CALL SIO$GO; 
; STATEMENT # 652 
9111: 
01CA E8C506 CALL SIOGO 
01CD EBAO JMP NEXTCOMMAND 
653 2 CALL SIO$SINGLE$STEP; 
; STATEMENT # 653 
89112: 
O1CF E82D07 CALL SIOSINGLESTEP 
0102 ЕВ9В JMP NEXTCOMMAND 
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655 


656 


657 


658 


659 


660 


661 
662 
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CALL SIOSMOVE; 


; STATEMENT # 654 


SIOMOVE 
NEXTCOMMAND 


; STATEMENT # 655 


SIODISPLAY 
NEXTCOMMAND 


; STATEMENT # 656 


SIOINPUT 
NEXTCOMMAND 


; STATEMENT # 657 


SIOOUTPUT 
NEXTCOMMAND 


; STATEMENT # 658 
SIOREAD 
NEXTCOMMAND 

; STATEMENT # 659 


SIOWRITE 
812 


; STATEMENT # 660 


8109 
8110 
2111 
9112 
8113 
8114 
8115 
4116 
8117 
8118 


; STATEMENT # 662 
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/* THIS ROUTINE HANDLES ALL ERRORS DETECTED BY THE MONITOR AND 


WILL OUTPUT THE ERROR PROMPT TO THE OUTPUT PORT.*/ 


9113: 
0104  E87E09 CALL 
0107 ЕВ96 JMP 
CALL SIOSDISPLAY; 
9114: 
0109 ΕδΟΑΟΑ CALL 
010С ЕВ91 JMP 
CALL SIOSINPUT; 
9115: 
01DE Е8С5ОА CALL 
01Е1 ЕВ8С JMP 
CALL SIOSOUTPUT; 
9116: 
01E3 Е8000В CALL 
01Е6 EB87 JMP 
CALL SIO$SREAD; 
9117: 
01Е8 εδερος CALL 
912: 
01ЕВ ЕВ82 JMP 
CALL SIOSWRITE; 
9118: 
O1ED E8570B CALL 
01Ғ0 EBF9 JMP 
END; 
9168: 
01Ғ2 C001 DW 
01F4 C501 DW 
01Ғ6 СА01 DW 
01F8 CFO1 DW 
O1FA D401 DW 
01ҒС 0901 DW 
01ҒЕ 0Е01 DW 
0200 E301 DW 
0202 E801 DW 
0204 Е001 DW 
GOTO NEXTSCOMMAND ; 
ERROR: 
ERROR: 
0206 BC4200 MOV 
0209 8ВЕС MOV 
0208 2E8E1EA600 MOV 
0210 В023 MOV 
0212 50 PUSH 


SP , AS TACKSOF FSET 
BP, SP 
05,С5:0ФОАТАФҒКАМЕ 
AL, 25H 

AX . 1 
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663 


665 


667 


-> 
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0215 Е80900 CALL 


SIOOUTCHAR 


CALL SIOSOUTSCHAR( '#'); 


GOTO NEXTSCOMMAND ; 
0216 EBD3 JMP 


AFTERSINTERRUPT : 


/* THIS ROUTINE IS CALLED AFTER AN INTERRUPT TO DISPLAY THE CS:IP 


; STATEMENT # 663 
312 


; STATEMENT # 664 


AND RESTORE THE BREAKPOINTED INSTRUCTION. */ 


SP , @ASTACKSOF FSET 
BP, SP 

DS, CS:@aDATASFRAME 
AL, BRK1FLAG 

AL, 1 

9119 


; STATEMENT # 666 
AL , BRK1SAVE 
BX ,MEMORYBRK1PTR 
ES :MEMORYBRK1 [BX] , AL 


; STATEMENT # 667 
BRK1FLAG, OH 


IF (CIP-1) AND OOOFH)=(BRK1.OFF AND OOOFH) AND 


; STATEMENT # 668 
AX ,REGSAV+18H 
AX, 1H 
AX =. 
AX, OFH 
CX, BRK1 


DX Ф 
DX, [BP] - 2н; 1 
CL ,4H 

DX,CL 
DX,REGSAV* 10H 
BX 572 
BX,CL 
BX,BRK1*2H 
AX 874 
DX,BX 

AL, ОРЕН 

$+3H 


AFTERINTERRUPT: 
0218 BC4200 MOV 
021B 8ВЕС MOV 
0210 2E8E1EA600 MOV 
0222 A06400 MOV 
0225 0008 RCR 
0227 735A JNB 
IF BRK1$FLAG THEN 
DO; 
MEMORYSBRK1 = ВЕК1%5АМЕ; 
0229 A06500 MOV 
022C C41E2200 LES 
0230 268807 MOV 
BRK1$FLAG = FALSE; 
0233  C606640000 MOV 
0238 A14800 MOV 
0238 83Е801 SUB 
023Е 50 PUSH 
023Ε 250F00 AND 
0242 8В0Е2200 MOV 
0246 51 PUSH 
0247 81E10F00 AND 
024B  3BC1 CMP 
0240 ВОҒҒ MOV 
024Ғ 7401 JZ 
0251 40 INC 
0252 5A POP 
0253 8756ҒЕ XCHG 
0256 B194 MOV 
0258 D3EA SHR 
025A 03164000 ADD 
025E 58 POP 
025F D3EB SHR 
0261 051Е2400 ADD 
0265 50 PUSH 
0266 3803 СМР 
0268 BOFF MOV 
026A 7401 JZ 
026C 40 INC 
026D 59 POP 
026Е 22C1 AND 
0270 0008 RCR 
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0272 730F JNB 9119 
(SHRCIP-1,4)+CS)=(SHR(BRK1.OFF,4)+BRK1.SEG) THEN 
669 2 DO; 
670 3 ІР = IP - 1; 
; STATEMENT # 670 
0274 832E480001 SUB REGSAV+18H, 1H 
671 3 CALL SIOSOUTSSTRING(SSIOSBREAK$MSG); 
; STATEMENT # 671 
0279 2Е80062300 LEA AX, CS: SIOBREAKMSG 
027E ОЕ PUSH CS ; 1 
027F 50 PUSH AX ; 2 
0280 ΕΒΕΕΟΟ CALL —— SIOOUTSTRING 
672 3 END; 
673 2 END; 
9119: 
674 1 CALL SIOSOUTSCHAR('3'); 
; STATEMENT # 674 
0283 B040 MOV AL, 40H 
0285 50 PUSH AX ; 1 
0286 £85600 CALL — SIOOUTCHAR 
675 1 CALL SIOSOUTSWORD(CS); 
; STATEMENT # 675 
0289 FF364000 PUSH REGSAV+10H; 1 
0280 Е80000 CALL — SIOOUTWORD 
676 1 CALL SIOSOUTSCHAR(':'); 
; STATEMENT # 676 
0290 ВОЗА MOV AL, ЗАН 
0292 50 PUSH AX ; 1 
0293 Е85900 CALL  SIOOUTCHAR 
677 1 CALL SIOSOUTSWORD(IP); 
- STATEMENT # 677 
0296 FF364800 PUSH REGSAV+18H; 1 
029A Е8С300 CALL —— SIOOUTWORD 
678 1 СОТО ΝΕΧΤΦΟΟΜΜΑΝΟ ; 
; STATEMENT # 678 
0290 Е9СЕЕЕ ЈМР МЕХТСОММАМО 
679 1 END MONITOR; /* END OF MODULE */ 


EOF 
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CROSS-REFERENCE LISTING 


DEFN 


ADDR 


SIZE 


169 


11 


11 


10 


10 


10 


51 


572 


15 
15 
13 
13 
13 
14 
12 


001EH 


003EH 


0004H 


0060H 


FHFFFÓH 
FHFFFBH 
FHFFFOH 
ΕΗΕΕΕΊΗ 
ΕΗΕΕΕΞΗ 


0000H 


16 


1 


AFTERINTERRUPT 


ARG 


ARG1 


ARG3 


ASBL 


ASCII 


ASCR 


BIAS 


BLOCK8089 
BLOCK8089PTR 
BOOT 1 

BOOT2 

BOOT3 

BOOT4 


BP 
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STRUCTURE BASED(PTR) 
170 171 175 176 


STRUCTURE AT 

318 351 352 354 404 409 421 423 430 
432 438 444 449 451 454 456 457 511 
516 547 552 555 558 562 574 586 594 
603 


STRUCTURE AT 
414 424 522 526 540 541 544 564 


LITERALLY 
48 63 125 130 509 


BYTE ARRAY(16) DATA 
53 54 86 87 


LITERALLY 

114 160 191 266 290 298 329 334 348 
360 387 390 394 415 431 440 473 496 
518 528 576 578 


LITERALLY 
115 


BYTE PARAMETER AUTOMATIC 
5€ 3 5 55 


WORD 
573 577 586 


WORD AT INITIAL ABSOLUTE 

POINTER AT INITIAL ABSOLUTE 

BYTE ARRAY(1) AT INITIAL ABSOLUTE 
WORD ARRAY(1) AT INITIAL ABSOLUTE 
WORD ARRAY(1) AT INITIAL ABSOLUTE 
WORD ARRAY(2) DATA 


LITERALLY 
245 
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11 


92 


36 


105 


280 


11 


478 


168 


195 


0022H 


0064H 


0065H 


0004H 


0004H 


0006H 


0004H 


0066H 


0067H 


0008H 


0026H 


0058H 


0004H 


0050H 


19 
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BREAKINST 


BRK1 


BRK1FLAG 


BRK1SAVE 


C1 


C2 


CHAR 


CHECKSUM 


COPYRIGHT 


CORRECTION 


CS 


CSIP 


DATUM 


DEFAULTBASE 


DELAY 


LITERALLY 


295 


294 


STRUCTURE AT 


289 


BYTE 
296 


BYTE 
292 


BYTE 
93 


BYTE 
37 


BYTE 
106 


BYTE 
106 


BYTE 
23 
100 
162 
286 
360 
431 
504 


BYTE 
55 


668 


636 664 667 


666 


PAGE 


PARAMETER AUTOMATIC 


94 


95 


96 


PARAMETER AUTOMATIC 


42 


PARAMETER AUTOMATIC 


108 


PARAMETER AUTOMATIC 


108 


24 
120 
163 
290 
376 
434 
509 


76 


25 
125 
172 
298 
378 
440 
512 


218 


28 
130 
177 
308 
387 
466 
518 


542 


BYTE ARRAY(19) DATA 


LITERALLY 


282 


LITERALLY 
192 318 404 


184 
675 


STRUCTURE AT 


184 
311 


WORD 


185 


192 


484 488 489 


261 


29 
138 
191 
319 
390 
473 
528 


548 


414 


262 


WORD PARAMETER AUTOMATIC 


169 


WORD 


197 


170 


199 


200 


33 
143 
210 
329 
394 
481 
576 


560 


430 


289 


63 


47 
153 
212 
331 
405 
485 
578 


565 


511 


301 


48 
154 
259 
334 
411 
490 
644 


583 


522 


302 


49 
160 
266 
348 
415 
496 


606 


310 
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648 ΟΊΑΕΗ 
12 


5 0018H 


662 0206H 


12 


157 0581Н 


16 FHFFDBH 
16 FHFFEOH 
16 FHFFF5H 


16 FHFFFCH 


84 0004H 


358  0070H 


572 0076H 


16 
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DISPATCH 


DOUBLE 


DS 


ENDOFF 


ERROR 


ES 


EVAL 


GOCOMMAND 


HIGH 


LABEL 
645 


BUILTIN 
95 96 


LITERALLY 
631 


WORD 
408 409 
516 552 


LABEL 

30 34 
299 309 
406 410 
482 486 


LITERALLY 
631 


LABEL 
147 


LITERALLY 
16 


LITERALLY 
19 90 


224 


421 
562 


152 
320 
412 
513 


103 


432 


164 
335 
416 
517 


111 


437 


178 
340 
420 
529 
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438 449 


203 
345 
435 
579 


267 
375 
439 
602 





454 


291 
379 
441 
607 


515 


295 
391 
467 
647 


118 506 525 636 667 


BYTE ARRAY(5) AT INITIAL ABSOLUTE 


BYTE ARRAY(16) AT INITIAL ABSOLUTE 


BYTE ARRAY(1) AT INITIAL ABSOLUTE 


BYTE ARRAY(4) AT INITIAL ABSOLUTE 


LITERALLY 


254 263 303 312 631 


LITERALLY 


BYTE PARAMETER AUTOMATIC 


85 87 


BUILTIN 
59 


BYTE 
363 
396 


BYTE 
599 


365 366 368 369 380 383 392 394 
398 399 
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5 


501 


279 


280 


280 


248 


270 


279 


12 


0068H 


005ЕН 


0871Н 


0095H 


0006H 


O7DFH 


0851H 


0004H 


0000H 


0006H 


001BH 


1 


33 


114 


20 
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INDEX 


INITINTVECTOR 


BYTE 
67 
229 
643 


WORD 
552 


PROCEDURE 5ΤΑΟΚΞΟΟΟΕΗ 


68 69 
230 240 
644 648 


553 554 


70 
242 
649 


INITINTVECTORCODE 


INITINTVECTORCODEPTR 


INPUT 


INTERRUPT 1TENTRY 


INTERRUPTSENTRY 


INTROUTINEOFFSET 


INTVECTOR 


INTVECTORPTR 


INWORD 


IP 


KBDATAPORT 


KBINITMODE 


KBINITSCAN 


KBSIGNON 


KBSTATPORT 


LAST 


633 634 


635 


BYTE ARRAY(15) DATA 


280 


WORD DATA 
281 


BUILTIN 
18 23 


28 40 
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82 86 87 99 100 
531 556 567 617 618 


45 47 198 207 471 


PROCEDURE INTERRUPT(1) STACK=0026H 


633 


PROCEDURE INTERRUPT(3) STACK=0014H 


634 635 


WORD PARAMETER AUTOMATIC 


280 282 


POINTER ARRAY(5) 


655 634 


635 


POINTER PARAMETER AUTOMATIC 


280 281 


BUILTIN 
470 


LITERALLY 
183 185 


LITERALLY 
618 


LITERALLY 
614 


LITERALLY 
615 


282 


309 631 


BYTE ARRAY(8) DATA 


618 


LITERALLY 
614 615 


BUILTIN 


616 


668 670 677 
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552 


196 


466 


445 


484 


581 


11 


11 


11 


11 
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006AH 


005CH 


0075H 


0008H 


0006H 


OBAEH 


OE44H 


0685H 


OCB2H 


OC3BH 


OCFFH 


OFO4H 


0000H 


001AH 


0000H 


001EH 


ro 
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LASTCOMMAND 


LEN 


LEN 


LENGTH 


LOADADDR 


LOOP 


LOOP 


LOOP 


LOOP 


LOOP 


LOOP 


LOOP 


LOW 


MAXDELAY 


MEMORYARG1 


MEMORYARGTPTR 


MEMORYARG3 


MEMORYARG3PTR 
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86 643 


BYTE 
255 648 


2) 


WORD 
551 554 555 556 


BYTE 
584 599 608 


BYTE PARAMETER AUTOMATIC 


764 77 w 


WORD PARAMETER AUTOMATIC 
76 78 


LABEL 
425 


LABEL 
563 


LABEL 
211 


LABEL 
475 w 
LABEL 


460 


LABEL 
497 


LABEL 
609 


BUILTIN 
60 216 217 343 344 489 


LITERALLY v 


200 


BYTE BASED(MEMORYARGIPTR) 
325 343 344 418 419 453 557 600 601 


POINTER 
11 324 325 338 339 343 344 418 419% 
448 453 557 600 601 


BYTE BASED(MEMORYARGSPTR) 
418 419 


és 


POINTER 
11 418 419 
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11 


11 


11 


11 


11 


11 


11 


501 


639 


11 


11 


11 


11 


11 


169 


0000H 


0022H 


0000H 


0026H 


0000H 


002AH 


0000H 


0073H 


OOA8H 
0016H 


0014H 


0C31H 


016FH 


0000H 


0000H 


0000H 


0000H 


0000H 


0000H 


1 


504 
2 
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MEMORYBRK1 


MEMORYBRK1PTR 


MEMORYCSIP 


MEMORYCSIPPTR 


MEMORYUSERSTACK 


MEMORYUSERSTACKPTR 


MEMORYWORDARG1 


MODE8086 


MONITOR 


MON I TORSTACKBASE 


MONI TORSTACKPTR 


NEWLINE 


NEXTCOMMAND 


OFF 


OFF 


OFF 


OFF 


OFF 


OFF 


BYTE BASED(MEMORYBRKTPTR) 


292 


POINT 
11 


BYTE BASED(MEMORYCSIPPTR) 


188 


POINT 
11 


293 294 666 


ER 


292 293 294 666 


ER 
188 
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WORD BASED (MEMORYUSERSTACKPTR) 


227 


POINT 
11 


WORD BASED (MEMORYARG1PTR) 


324 


BYTE 
503 


PROCE 


WORD 
252 


WORD 
251 


LABEL 
459 


LABEL 
268 


WORD 
185 


WORD 
228 


WORD 
668 


WORD 
424 


WORD 
351 
449 
562 


WORD 
171 


230 242 245 


ER 


227 230 242 245 


338 339 448 


506 535 


DURE STACK=0042H 


274 638 


273 637 


661 663 678 


MEMBER(CSIP) 
261 301 310 


MEMBER(USERSTACK) 
231 234 239 241 


MEMBER(BRK1) 
MEMBER(ARG3) 
526 541 


MEMBER(ARG1) 
352 354 409 421 


451 454 456 457 


586 603 


MEMBER (АКС) 
175 176 


546 564 


244 246 249 271 


423 432 438 444 
216 552 555 558 


PL/M-86 


280 


572 


134 


478 


572 


12 


236 


237 


237 


COMPILER 


0000H 


0062H 


006BH 


005AH 


0056H 


0006H 


0004H 


0074H 


0004H 


0058H 


002EH 


0074H 


0030H 


0766H 


007FH 


0004H 


28 


11 


28 


96 


22 


SDK86 SERIAL MONITOR 


OFF 


OFFSET 


OPER 


OUTPUT 


OUTWORD 


PORT 


PORT 


PTR 


PTR 


RECTYPE 


RECTYPE 


REG 


REGINDEX 


REGORD 


REGSAV 


RESTOREEXECUTE 


RESTOREEXECUTECODE 


RESTOREEXECUTECODEPTR 
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WORD MEMBER(VECTOR) 
282 


WORD 
585 586 596 597 


BYTE 
135 157 163 


BUILTIN 
42 196 202 206 489 614 615 616 618 
620 622 624 626 628 


BUILTIN 
488 


WORD 
480 488 489 


WORD 
465 470 471 


POINTER PARAMETER AUTOMATIC 
169 170 171 175 176 


POINTER PARAMETER AUTOMATIC 
66 68 69 


BYTE 
587 588 593 595 598 608 


BYTE PARAMETER AUTOMATIC 
764 79 


BYTE ARRAY(28) DATA 
100 108 365 366 398 399 


WORD 
107 108 145 380 


BYTE ARRAY(11) DATA 
230 242 


WORD ARRAY(14) 
145 183 184 185 192 227 230 233 234 
238 239 242 245 254 261 262 263 301 
302 303 310 311 312 318 368 383 392 
404 414 430 511 522 590 591 597 631 
632 668 670 675 677 


PROCEDURE STACK=0008H 
256 264 304 313 


BYTE ARRAY(22) DATA 
237 


WORD DATA 


γα 


PL/M-86 COMPILER 


358 


134 


226 


11 


11 


11 


11 


280 


11 


169 


81 


17 


0054H 


004CH 


0715H 


0002H 


0002H 


0002H 


0002H 


0002H 


0002H 


0002H 


O3D9H 


0023H 


O2A0H 


81 


14 


19 


SDK86 SERIAL MONITOR 


SAVE 


SAVE 


SAVEREGISTERS 


SEG 


SEG 


SEG 


SEG 


SEG 


SEG 


SEG 


SHL 


SHR 


S108251CMND 


510825 1DTRON 


510825 1MODE 


5108251КЕ5ЕТ 


SIOB251SETTLINGDELAY 


SIOBREAKMSG 


SIOCHARRDY 


246 


WORD 
389 392 


WORD 
139 145 


PROCEDURE STACK=0002H 


253 275 


WORD MEMBER(USERSTACK) 
233 238 246 250 272 


WORD MEMBER(CSIP) 
184 262 289 302 311 


WORD MEMBER(BRK1) 


668 


WORD MEMBER(ARG3) 


540 


WORD MEMBER(VECTOR) 


281 


WORD MEMBER(ARG1) 


547 574 


WORD MEMBER(ARG) 


170 175 


BUILTIN 
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149 154 158 159 


594 


154 217 224 


BUILTIN 
53 82 


LITERALLY 
202 206 


LITERALLY 
196 


LITERALLY 
626 


LITERALLY 
620 624 


PROCEDURE STACK=0002H 
621 623 625 627 629 


BYTE ARRAY(4) DATA 


671 


668 


628 


PROCEDURE BYTE STACK=0002H 


PL/M-86 COMPILER 


22 


7 


113 


427 


397 


168 


44 


133 


284 


92 


462 


402 


62 


51 


0283Н 


004ЕН 


04А?Н 


OBE6H 


0926H 


0А06Н 


O5E4H 


O30FH 


O4FOH 


0892H 


0416H 


OCA6H 


OB55H 


0377H 


0330H 


60 


10 


17 


192 


224 


335 


65 


33 


244 


109 


145 


11 


48 


SDK86 SERIAL MONITOR 


SIOCHECKCONTROLCHAR 


SIOCMND 


SIOCRLF 


SIODATAPORT 


SIODISPLAY 


SIODSRDY 


SIOEXAMMEM 


SIOEXAMREG 


SIOGETADDR 


SIOGETCHAR 


SIOGETWORD 


51060 


SIOHEX 


SIOINPUT 


SIOMOVE 


SIOOUTBLANK 


SIOOUTBYTE 


26 38 


PROCEDURE STACK=0006H 


39 209 


BYTE ARRAY(10) DATA 
645 644 


PROCEDURE STACK=0010H 
300 353 362 370 397 417 443 
530 534 543 549 561 


257 276 
468 492 
639 


LITERALLY 
23 28 42 47 


PROCEDURE STACK=0022H 


655 


LITERALLY 
198 


PROCEDURE STACK=0022H 


650 


PROCEDURE STACK=001CH 


651 


PROCEDURE STACK=001EH 
318 404 414 430 511 


192 289 


PROCEDURE STACK=0010H 


119 123 126 129 
174 190 
472 483 
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131 142 146 


288 328 377 386 407 
495 502 507 510 514 


PROCEDURE WORD STACK=0014H 


171 176 
515 NT 


PROCEDURE STACK=0026H 


652 


333 589 408 437 465 


PROCEDURE WORD STACK=0004H 


149 154 216 217 


PROCEDURE STACK=001CH 


656 


PROCEDURE STACK=0022H 


654 


PROCEDURE STACK=0010H 
189 322 327 364 385 445 494 


182 187 


PROCEDURE STACK=0012H 


59 60 77 79 


188 325 453 


566 580 


522 


155 165 
813 436 
521 642 


480 484 


471 542 


%) 


PL/M-86 


36 


477 


65 


57 


571 


214 


194 


128 


306 


117 


181 


COMPILER 


O2EFH 


03B5H 


OCE6H 


0382H 


0360H 


OED8H 


O6CDH 


0682H 


O6F8H 


O4DEH 


0027H 


08F FH 


04B8H 


0625H 


SDK86 SERIAL MONITOR 


32 


36 


97 


51 


23 


259 


29 


18 


23 


39 


38 


93 


SIOOUTCHAR 


SIOOUTHEADER 


SIOOUTPUT 


SIOOUTSTRING 


SIOOUTWORD 


SIOREAD 


SIOREADBYTE 


SIOREADCHAR 


SIOREADWORD 


SIORXRDY 


SIOSCANBLANK 


SIOSIGNON 


SIOSINGLESTEP 


SIOSTATPORT 


SIOTESTWORDMODE 


SIOTXRDY 


SIOUPDATEIP 


548 557 


PROCEDURE 

49 53 
326 365 
532 568 


PROCEDURE 
539 546 


PROCEDURE 
657 


PROCEDURE 
630 671 


PROCEDURE 
78 183 
540 541 


PROCEDURE 
658 


PROCEDURE 
223 224 


PROCEDURE 
216 217 


PROCEDURE 
585 590 


LITERALLY 
18 45 


PROCEDURE 
359 403 
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560 565 


STACK=000CH 


54 63 69 75 


114 115 186 


366 367 382 384 398 399 493 


610 611 640 641 


STACK=0022H 
555 564 
STACK=0018H 


STACK=0014H 


STACK=0018H 


662 674 676 


324 354 368 383 444 448 470 


547 675 677 


STACK=001AH 


BYTE STACK=0010H 


584 587 600 605 


BYTE 5ТАСК-000АН 
581 


WORD STACK=0016H 
591 594 
207 


STACK=0014H 
575 


BYTE ARRAY(23) DATA 


630 


PROCEDURE 
653 


LITERALLY 
18 40 
622 624 


PROCEDURE 
317 429 


LITERALLY 
40 


PROCEDURE 
258 285 


STACK=0026H 


45 196 
626 628 


STACK=0014H 
464 479 


STACK=0022H 
307 


198 202 206 207 620 


PL/M-86 COMPILER 


84 


105 


98 


500 


12 


12 


501 


428 


358 


222 


215 


O3E7H 47 
0460H 71 
0431H 47 
00478 401 
0072H 1 
0000H 1 
0077H 1 
0071H 1 
OO6FH 1 
006ЕН 1 
0060Н 1 


SDK86 SERIAL MONITOR 


SIOVALIDHEX 


SIOVALIDREG 


SIOVALIDREGFIRST 


SIOWRITE 


SP 


SS 


SSCOMMAND 


STACKBASE 


STACKPTR 


STANDARDLEN 


STARTADDR 


STARTREC 


STEPTRAP 


STR 


PROCEDURE 
151 153 


PROCEDURE 
143 378 


PROCEDURE 
140 374 


PROCEDURE 
659 


LITERALLY 
239 


LITERALLY 
238 631 


LITERALLY 
255 


BUILTIN 
250 252 


BUILTIN 
249 251 


LITERALLY 
291 2953 


LITERALLY 
15 14 


BYTE 
520 525 


LITERALLY 
254 263 


PAGE 7? 


BYTE STACK=0004H 


BYTE STACK=0008H 


BYTE STACK=0002H 


STACK=0026H 


272 274 638 


271 273 637 


537 


303 312 


BYTE BASED(PTR) ARRAY(1) 


68 69 


BYTE 
600 601 


BYTE 
457 458 


BYTE 
376 378 


BYTE 
223 224 


BYTE 
216 217 


605 


218 219 


а” 


PL/M-86 COMPILER 


134 


280 


316 


134 


MODULE INFORMATION: 


CODE AREA SIZE 

CONSTANT AREA SIZE 
VARIABLE AREA SIZE 
MAXIMUM STACK SIZE 


006CH 


002AH 


0000H 


0052H 


004EH 


0004H 


0069H 


1 


1211 LINES READ 
0 PROGRAM ERROR(S) 


SDK86 SERIAL MONITOR 


T 


TRUE 


USERINITSP 


USERSTACK 


VECTOR 


WORDMODE 


OFDBH 
0000H 
0078H 
0042H 


END OF PL/M-86 COMPILATION 


120D 


BYTE 
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138 143 149 151 


LITERALLY 


20 
503 


88 101 109 122 137 296 321 381 
520 


LITERALLY 


632 


STRUCTURE AT 


228 
249 


231 233 234 238 239 241 244 246 
250 271 272 


STRUCTURE BASED(INTVECTORPTR) 


281 


WORD 
333 


WORD 
136 


WORD 
58 


BYTE 
118 


282 

338 339 343 344 
158 159 161 
PARAMETER AUTOMATIC 


59 60 


122 323 336 350 446 458 469 487 


intel 
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